Сформировать две квадратные матрицы

for i:=1 to n do
if a[i,i]=0 then a[i,i]:=1;

program podprogramma;
uses crt;
const max=10;
type mas=array[1..max,1..max] of real;
var a,b:mas; n,m,k,l:byte; 
procedure matrixin(var x:mas; row,col:byte);
var i,j:integer;
begin
writeln('Ввод элементов матрицы ');
for i:=1 to row do begin
writeln('Ввод элементов ',i,'строки матрицы');
for j:=1 to col do
readln(x[i,j]);
end;
end;
procedure matrixout(var x:mas; row,col:byte);
var i,j:integer;
begin
for i:=1 to row do begin
writeln;
for j:=1 to col do
write(x[i,j]);
end;
end;
procedure zamena(var x:mas; row,col:byte);
var i:integer;
begin
for i:=1 to row do
if x[i,i]=0 then x[i,i]:=1;
end;
begin
writeln('Введите кол-во строк и столбцов матрицы A');
readln(n,m);
writeln('Введите кол-во строк и столбцов матрицы B');
readln(k,l);
matrixin(A,n,m);
clrscr;
matrixin(B,k,l);
clrscr;
writeln('*********__MATRIX_A__*********');
matrixout(A,n,m);
writeln;
writeln('*********__MATRIX_B__*********');
matrixout(B,k,l);
writeln;
zamena(A,n,m);
zamena(B,k,l);
writeln;
writeln('*********__MATRIX_A*__**********');
matrixout(A,n,m);
writeln;
writeln('*********__MATRIX_B*__**********');
matrixout(B,k,l);
readln;
end.

procedure matrixout(var x:mas; row,col:byte);