program hledej_max;
var
  pole: array[1..20] of integer; {deklarace 20 prvku pole "pole"}
  i, max: integer; {deklarace dvou promennych}
begin
  randomize; {spusti generator nahodnych cisel}
  for i:=1 to 20 do pole[i]:=random(100); {20 prvku pole naplni nahodnymi cisly od 0 do 99}
  for i:=1 to 20 do write(pole[i],' '); {vypise obsah vsech 20 prvku pole}
  max:=pole[1]; {k cemu to asi je?}

    {tady neco chybi...}
  writeln; {k cemu to asi je?}
  writeln('Nalezené maximum:',max)
end.