ИЗМЕНИТЕ ПРОГРАММУ ТАК, ЧТОБЫ С ЕЕ ПОМОЩЬЮ МОЖНО БЫЛО НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ ПРОИЗВОЛЬНЫХ ДЕСЯТИ ЦЕЛЫХ ДВУЗНАЧНЫХ ЧИСЕЛ.СРОЧНО!!!!

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 a<>b do    if a>b then a:=a-b else b:=b-a;  c:=aend;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.