ИЗМЕНИТЕ ПРОГРАММУ ТАК, Чтоб С ЕЕ Подмогою МОЖНО БЫЛО Отыскать Наивеличайший

Program n_6;

const
  n=10;

var
  m:array[1..n] of integer;
  i,x,y,z:integer;

procedure nod(a,b:integer; var c:integer);
begin
  while alt;gt;b do
    if agt;b then a:=a-b else b:=b-a;
  c:=a
end;

begin
  Writeln('Введите 10 двухзначных целых чисел');
  for i:=1 to n do Read(m[i]);
  x:=m[1];
  for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;
  Writeln('НОД=',x)
end.