НОД(для 4-ёх чисел) + Матрицы Опции

[Amro]

Люди помогите решить две задачки:
вот условия
1.Составить программу нахождения наибольшего общего делителя четырех натуральных чисел.
{Для двух чисел я знаю как искать, а именно применяя метод Евклида, но вот для четырёх чего то до меня не доходит...}
2.Вставить нулевую строку и нулевой столбец перед строкой и столбцом, где находится первый минимальный элемент.
{я в общем пробовал её решить, но получается чего-то не то, программа обнуляет не ту строку, а вернее стирает строку с найденным минимальным элементом, а по условию она должна вставлять пустую строку и столбец перед найденным минимальным элементом, а последний сдвигать}
в общем вот как я её решаю...

Код

program 009;
uses crt;
label lb1;
var
i,j,n,m,k,l: integer;
mas:array[1..50,1..50] of integer;
begin
clrscr;
writeln('Введите размерность массива (число строк n и число столбцов m): ');
read(n,m);
randomize;
write('Данный массив:');
for i:=1 to n do
 for j:=1 to m do
   mas[i,j]:=-10+random(40);
 for i:=1 to n do begin writeln;
   for j:=1 to m do
     write(mas[i,j]:5); end;
for j:=1 to m do
 for i:=1 to n do
   if mas[i,j]<0 then begin
     k:=j; l:=i;
     writeln;
for j:=k to m do
for i:=l to n do
  mas[l,k]:=mas[i,j]; end;
write('Получился массив вида');
for j:=k to m do
for i:=l to n do  begin
  mas[i,k]:=0;  mas[l,j]:=0; end;
for i:=1 to n do
for j:=1 to m do
 begin writeln;
   for j:=1 to m do
     write(mas[i,j]:5);end;
readkey;
end.

[Amro]

Нормалёк, программка твоя работает!!!
Вторую бы ещё решить :-/...
Огромное человеческое спасибо тебе!!!

Аватар на то он и аватар, чтобы быть красивым!!! ;D