Переворот и падение дудла

uses graphABC;
type
    point = record
        x, y: integer;
    end;
 
var
    doodler, background, platform: picture;
    Left, Right, x, y, i, h: integer;
    vx, vy: real;
    platforms: array [1..5] of point;
    game: boolean;
 
procedure KeyDown(Key: integer);
begin
    if Key = vk_Left then Left := 1;
    if Key = vk_Right then Right := 1;
end;
 
procedure KeyUp(Key: integer);
begin
    if Key = vk_Left then Left := 0;
    if Key = vk_Right then Right := 0;
end;
 
begin
    window.Caption := 'Doodle_Jump_v1.0';
    SetWindowSize(532, 850);
    LockDrawing;
    OnKeyDown := KeyDown;
    OnKeyUp := KeyUp;
    doodler := picture.Create('data\doodler.png');
    background := picture.Create('data\background.png');
    platform := picture.Create('data\platform.png');
    x := 266;
    y := 750;
    h := 700;
    for i := 1 to 5 do
    begin
        platforms[i].x := random(532);
        platforms[i].y := random(850);
    end;
    game := true;
    vy:= -3;
    while game do
    begin
        background.Draw(0, 0);
        doodler.Draw(x, y);
        for i := 1 to 5 do platform.Draw(platforms[i].x, platforms[i].y);
        if Left = 1 then x := x - 3;
        if Right = 1 then x := x + 3;
        y := y - 10;
        // эта часть
        for i := 1 to 5 do
            if (x + 21 > platforms[i].x) and
                (x + 16 < platforms[i].x + 56) and
                (y < platforms[i].y) and
                (y > platforms[i].y ) and (vy < 0) then 
                 begin
                 doodler := picture.Create('data\doodler1.png');
               vy:= 15;
               end;
          //конец
        if y < h then
        begin
            for i := 1 to 5 do 
            begin
                y := h;
                platforms[i].y := platforms[i].y - 1 * round(vy);
                if platforms[i].y > 850 then
                begin
                    platforms[i].y := 0;
                    platforms[i].x := random(532);
                end;
                
            end;
        end;
        Redraw;
    end;
end.