В паскале.В массиве хранится информация о цены каждого из 50 марок

Const
   N = 50;
Var
   M:array[1..N] of longint;
   i,Max:integer;
Begin
Randomize;
WriteLn('Цены(в рублях): ');
Max:=1;
For i:= 1 to N do
    Begin
    M[i]:=random(9900001)+100000;
    WriteLn(M[i]);
    if M[i] gt; M[Max] then Max:=i;
    End;
WriteLn('Max = ',M[Max]);
End.