Neviete niekto tento jeden priklad v Pascale???

program cisla;
uses CRT;
var poradie,maxporadie,cislo,maxcislo:integer;
begin
clrscr;
poradie:=1;
maxporadie:=0;
maxcislo:=0;
repeat begin
 write('Zadaj ',poradie,'. cislo: ');
 read(cislo);
 if cislo>maxcislo then begin
   maxcislo:=cislo;
   maxporadie:=poradie;
   end;
 inc(poradie);
 end until poradie>20;
writeln('Maximalne cislo bolo: ',maxcislo);
write('a jeho pozicia bola cislo: ',maxporadie);
repeat until keypressed;
end.