Нужна очень задача решеная по паскалю! PascalABC.NET

могу, но только на PascalABC и надо немного переделать
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.

Решение на Pascal ABC

type mas = array [1..100,1..100] of integer;
var i, n, g, g1, n1, n2, n3: integer;
a, b, c: mas;
procedure input (n: integer; var c: mas) ;
var k1, k2: integer;
begin
for k1:=1 to n do
begin
for k2:=1 to n do
begin
c[k1,k2]:=random (90)+10;
write (c[k1,k2]:4);
end;
writeln;
end;
end;
procedure diag (c: mas; n: integer; var sum: integer) ;
var k1, k2: integer;
begin
for k1:=1 to n do
begin
sum:=sum+c[k1,k1];
sum:=sum+c[k1,n+1-k1];
end;
writeln ('Сумма диагональных элементов массива = ', sum);
end;
begin
write ('n1,n2,n3 = ');
readln (n1,n2,n3);
input (n1,a);
diag (a,n1,g);
input (n2,b);
diag (a,n2,g1);
g:=g+g1;
input (n3,c);
diag (a,n3,g1);
g:=g+g1;
writeln ('Сумма диагональных элементов всех массивов = ', g);
end.