Bybluk_Vlad

Пожалуйста помогите перевести код Pascal в Си. Буду благодарен,если работа будет выполнена в короткие сроки. За ранее спасибо. Вот само задание:
В произвольной матрице поменять местами строку, содержащую минимальный элемент матрицы, со строкой, содержащей максимальный элемент.




uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j,imn,imx:byte;
mn,mx,x:integer;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
imn:=1;mn:=a[1,1];
imx:=1;mx:=a[1,1];
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<mn then
begin
mn:=a[i,j];
imn:=i;
end;
if a[i,j]>mx then
begin
mx:=a[i,j];
imx :=i;
end;
end;
writeln('Минимальный элемент ',mn,' в строке ',imn);
writeln('Максимальный элемент ',mx,' в строке ',imx);
if imn=imx then write('Минимальный и максимальный элементы находятся в одной строке!')
else
begin
for i:=1 to m do
begin
x:=a[imn,i];
a[imn,i]:=a[imx,i];
a[imx,i]:=x;
end;
writeln('Результат обмена строк:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end;
readln
end.