Дан массив из 20 частей. Числа выбираются из промежутка от 0

Var a: array [1..20] of integer;
    i, m: integer;
begin
     for i := 1 to 20 do 
     begin
          a[i] := random(50);
          writeln('[', i, '] =gt; ', a[i]);
     end;
     m := 1;
     for i := 1 to 20 do
         if (a[m] gt; a[i]) then m := i;
     writeln('[', m, '] =gt; ', a[m]);
end.