Написать программу,которая формирует массив случайных чисел с(20) и определяет наибольший элемент этого массива.

Const
n=20;
var
c:array[1..n]of integer;
i,max:integer;
begin
    for i:=1 to n do
        begin
            c[i]:=random(100);
             write(c[i]:4);
        end;
writeln;
max:=c[1];
for i:=2 to n do
    if c[i]>max then
       max:=c[i];
writeln(max);
end.