Matematické Fórum

Mám zadané toto zadání:
Je dáno 20 čísel. Sestavte program, podle kterého se vytisknou daná čísla jednak v zadaném pořadí a pak v opačném pořadí, vždy po 5 číslech na jednom Řádku.. Nakonec vytisknete všechna ta čísla, která jsou menší než číslo A, které se přečte jako první.

Mám to napsané v Pascalu (prosím o zkontrolování správnosti):
program CISLA14(VSTUP,VYSTUP);
const N=20; {počet čísel}
type CIS=array[1..N] of real;
var  I,J:integer;
   CISLA:CIS;
   VSTUP,VYSTUP:text;
begin
assign(VSTUP,'cisla.dat');
assign(VYSTUP,'cisla.vys');
reset(VSTUP);
rewrite(VYSTUP);
writeln(VYSTUP,' Zadaných 20 čísel:');
writeln(VYSTUP);
for I:=1 to N do begin
  read(VSTUP,CISLA[i]);
  write(VYSTUP,CISLA[i]:8:2);
  if (I mod 5)=0 then writeln(VYSTUP);
end;
writeln(VYSTUP);
{v opačném pořadí}
writeln(VYSTUP,' Zadaných 20 čísel v opačném pořadí:');
writeln(VYSTUP);
for I:=N downto 1 do begin
  write(VYSTUP,CISLA[i]:8:2);
  if ((I-1) mod 5)=0 then writeln(VYSTUP);
end;
writeln(VYSTUP);
{všechna čísla menší než číslo první}
writeln(VYSTUP,' Všechna čísla menší než číslo první t.j.:',CISLA[1]:8:2);
writeln(VYSTUP);
J:=0;
for I:=2 to N do
  if CISLA[i]<CISLA[1] then begin
   J:=J+1;
   write(VYSTUP,CISLA[i]:8:2);
   if (J mod 5)=0 then writeln(VYSTUP);
  end;
close(VSTUP);
close(VYSTUP);
end.

Ale potřebuji to přepsat do Delphi