Задача на Free Pascal

[TeSoro]

Нужен тетрис только для *падающего квадрата*, мы можем их перемещать вправо-влево, но когда он упадёт полностью, то торогать его нельзя и сразу как только упал один полетел другой. Как только всесь *пол* заполнен этот ряд квадратиков удаяем, а если так получилось, что один квадрат упал на другой, то второй не накладывается на первый, а стоит на нём.