pole prvni druhy radek

program pole_premysl;
uses Crt;
var ax, ay, delka_x, sirka_y, pomx, pomy: integer;
begin
    clrscr();
    writeln('');
    write('Zadej DÉLKU pole:');
    read(delka_x);

    writeln('');
    write('Zadej ŠÍŘKU pole:');
    read(sirka_y);

    pomy:=0;
    pomx:=0;
    clrscr();
    // Osetreni vystupu, pokud je VYSKA nebo SIRKA = 1
    if (delka_x = 1) then
        begin
            for ay:= 1 to sirka_y do
                begin
                    gotoxy(1,ay);
                    write('|');
                    delay(100);
                end
        end
    else if (sirka_y = 1) then
         begin
            for ax:= 1 to delka_x do
                    begin
                        gotoxy(ax,1);
                        write('-');
                        delay(100);
                    end
        end
    else
        begin
        repeat
        for ax:=(1+pomx) to (delka_x - pomx) do
            begin
            gotoxy(ax,ay);
            write('>');
            delay(100);
            end;

        pomy:=pomy +1;
        for ay:=(pomy+1) to (sirka_y-pomy+1) do
            begin
            gotoxy(ax,ay);
            write('|');
            //delay(100);
            end;

        for ax:=(delka_x - pomx-1) downto (pomx + 1) do
            begin
            gotoxy(ax,ay);
            write('<');
            delay(100);
            end;

        pomx:= pomx +1;

        for ay:= (sirka_y-pomy) downto (1+pomy) do
            begin
            gotoxy(ax,ay);
            write('|');
            delay(100);
            end;

        until (pomx = Round(delka_x/2)) or (pomy = Round(sirka_y/2));
    end;
    gotoxy(100,100);

end.