Помогите сделать код Pascal ABC

var i, j, n, max, id_x, id_y: Integer;
a: array [1..100,1..100] of integer;
begin
write ('n= ');
readln (n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=-20+random (41);
write (a[i,j]:4);
if (i=1) and (j=1) then
begin
max:=a[i,j];
id_x:=i;
id_y:=j;
end;
if a[i,j] > max then
begin
max:=a[i,j];
id_x:=i;
id_y:=j;
end;
end;
writeln;
end;
writeln ('max элемент матрицы строит на = ', id_x,',', id_y);
a[n+1,n+1]:=a[1,1];
a[1,1]:=a[id_x,id_y];
a[id_x,id_y]:=a[n+1,n+1];
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:4);
writeln;
end;
end.

вот двумерный массив, остальное сам, не получится - пиши
program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
procedure vvod(var c:matr; n,m:integer); //---------------------------------
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
c[i,j]:=random(101);
end; //----------------------------------------------------
procedure vivod( c:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do
write(c[i,j]:3);
writeln; end;
end; //-------------------------------------------------
var
i,j,n,m:integer;
a:matr;
BEGIN
randomize;
clrscr;
writeln('Zadacha na massiv ');
writeln('---------------------------');
writeln;
write('Vvesti N and M: ');
readln(n,m);
writeln('Massiv A: ');
{ for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(101);
write(a[i,j]:3);
end;
writeln; end; }
vvod(a,n,m);
vivod(a,n,m);
end.

Не плати «Зотикову Георгию» -который тебе ответил, РЕШАЕТ НЕВЕРНО ВСЕМ-будет у тебя деньги выпрашивать за решения–кидает тут всех тупо на бабки! Сидит на даче безработный старпёр беззубый импотент С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга обул на 320 руб–денег не вернул!!! У этого мошенника Зотикова есть еще страницы-ИХ УЖЕ ЗАКРЫЛИ ЗА МОШЕННИЧ-ВО-он с трёх страниц кидает одновременно!!! Имя сменил только.