В одномерном массиве А(10) отыскать наибольший элемент, вывести его значение и

На Паскале

Const N = 10;
var i, max: integer;
a: array[1..N] of integer;
begin
  max := 1;
  writeln('Массив до: ');
  for i := 1 to N do begin
    a[i] := random(10);
    write(a[i]:3);
    if(a[i] gt; a[max]) then max := i;
  end;
  writeln(10, 'Массив после: ');
  for i := 1 to N do begin
    if(a[i] gt; 1) and (a[i] lt; 4) then a[i] := a[max];
    write(a[i]:3);
  end;
  writeln(10, 'Максиммальный элемент: ', a[max], 10, 'Его индекс: ', max);  
end.