Изменение программы, написанной на MidletPascal

program Aircraft;
type//обьявление типов
 TSam = record//создаем тип самалет
 position,kren,x,y:integer;//переменные отвечающие за его позицию и наклон
 img:image;//здесь будет изображение самалета
end;
 
procedure DrawRazm(x,y:integer);//процедура создания разметки на полосе
begin
 drawRect(x,y,4,30);//рисуем разметку
end;
 
var
 Sam:TSam;//обьявляем переменную типа нашего самалета
 key,x,y,i:integer;//переменные для получения нажатой клавиши,позиции разметки и счетчик
begin
 x:=(getWidth/2)-(getImageWidth(loadImage('/zast.png'))/2);//вставляем заставку
 y:=(getHeight/2)-(getImageHeight(loadImage('/zast.png'))/2);//в центре
 drawImage(loadImage('/zast.png'),x,y);//экрана
 repaint;
 delay(5000);
 
 Sam.Position:=4;//устанавливаем позицию самалета по середине
 Sam.Img:=LoadImage('/sam4.png');//загружаем соответствующую картинку
 Sam.x:=(GetWidth/2)-(GetImageWidth(Sam.img)/2);//устанавливаем начальные
 Sam.y:=getImageHeight(loadImage('/sam1.png'));//координаты самалета
 
i:=0;//устанавливаем счетчик в ноль
x:=(getWidth/2)-2;//координаты которые будут использоваться
y:=getHeight/2;//для построения разметки на полосе
 
Sam.kren:=0;//устанавливаем наклон самалета в ноль
 repeat//цикл длится пока не будет нажата клавиша "0"
  SetColor(255,255,255);//устанавливаем белый цвет
    FillRect(0,0,getWidth,GetHeight);//зарисовываем экран белым цветом (очищаем)
 
//далее выводим нужное изображение самалета в соответствии с его позицией
  drawImage(loadImage('/sam'+chr(48+Sam.position)+'.png'),Sam.x,Sam.y);//и наклоном
 
    SetColor(0,0,0);//устанавливаем черный цвет
    drawLine((getWidth/2)-40,getHeight/2,(getWidth/2)-60,getHeight);//рисуем
    drawLine((getWidth/2)-42,getHeight/2,(getWidth/2)-62,getHeight);//края
    drawLine((getWidth/2)+40,getHeight/2,(getWidth/2)+60,getHeight);//взлетной
    drawLine((getWidth/2)+42,getHeight/2,(getWidth/2)+62,getHeight);//полосы
    drawLine(0,getHeight/2,getWidth,getHeight/2);//рисуем горизонт
    SetColor(140,175,205);//устанавливаем цвет сине-серым
 
    drawRazm(x,y);//вызываем процедуру рисования разметки
    
 
 
  key:=GetKeyPressed;//переменной key присваивается код удерживаемой клавиши
 
 if key=KE_KEY4 then//если удерживается 4
   begin
    Sam.position:=Sam.position-1;//уменьшаем позицию на 1
    if Sam.Position<=1 then Sam.position:=1;//если позиция меньше или равна 1 то присвоить обратно 1
    Sam.kren:=Sam.kren-1;//увеличиваем крен в левую сторону
    if Sam.kren<=-3 then Sam.kren:=-3;//если крен в лево больше макс. допустимого, то ставим макс. допустимый
   end;
 
  if key=KE_KEY6 then//здесь все то же самое, только в правую сторону
   begin
    Sam.position:=Sam.position+1;
    if Sam.Position>=7 then Sam.position:=7;
    Sam.kren:=Sam.kren+1;
    if Sam.kren>=3 then Sam.kren:=3;
   end;
 
  if key=KE_KEY8 then//если удерживается 8
   begin
    Sam.y:=Sam.y+3;//уменьшаем позицию самалета на 3 (координата y увел. с верху в низ)
    //далее проверяем, если самалет ниже чем надо, ставим его на место
    if Sam.y+GetImageHeight(Sam.img)>=(GetHeight-20) then Sam.y:=(getHeight-20)-getImageHeight(Sam.img);
   end;
 
  if key=KE_KEY2 then//если удерживается 2
   begin
    Sam.y:=Sam.y-3;//подымаем самаль на 3
    if Sam.y<=0 then Sam.y:=0;//проверяем не улетел ли он в космос
   end;
//дальше, в соответствии с наклоном самалета в ту или иную сторону, корректируется его позиция на оси X   
  Sam.x:=Sam.x+Sam.kren;
 
  if Sam.x<=0 then Sam.x:=0;//проверяем не улетел наш самалет куда нибудь влево или вправо
  if Sam.x>=getWidth-getImageWidth(Sam.img) then Sam.x:=getwidth-GetImageWidth(Sam.img);//за пределы экрана
 
    i:=i+1;//инкрементируем счетчик
    if i=5 then y:=y+35;//читай так "если прошло 5 циклов времени, то опускаем нашу полосу разметки чуть ниже"
    if i=10 then y:=y+35;//после еще 5-ти циклов времени еще опускаем нашу разметку
    if i=15 then y:=y+35;//и еще раз
    if i>20 then//после очередных 5-ти циклов времени возвращаем ее обратно, так создается впечатление, что
                //самалет летит вперед, пролетая полосу разметки
    begin
     i:=0;
     y:=getHeight/2;
    end;
 
 
 
  repaint;//выводим на экран все что мы до этого нарисовали
    delay(50);//делаем задержку в 0.05 секунды. Это можно считать скоростью игры
 
until GetKeyClicked=KE_KEY0;//выполняется цикл пока не нажмем на "0"
 
end.