Допишите программу

Program massive;
const n=6; m=6; c=5; s=6;
Var A:array [1..10,1..20] of integer; B:array [1..10,1..20] of integer; max,i,j,k,h:integer; 
Begin
for i:=1 to n do 
for j:=1 to m do 
begin writeln('введи элемент массива');
read(A[i,j]); end;
max:=0;
for i:=1 to n do 
for j:=1 to m do 
begin  if (A[i,j]>max) or (A[i,j]<max) then max:=A[i,j];end;

Program massive;
uses crt;
const n=6;
Var A,B:array [1..n,1..n] of integer;
    imax,max,i,j,k:integer;
Begin
for i:=1 to n do
for j:=1 to n do
  begin
   write('введи элемент массива  ');
   read(A[i,j]);
  end;
clrscr;
writeln('Матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(A[i,j]:4);
  writeln;
 end;
imax:=1;
max:=A[1,1];
for i:=1 to n do
for j:=1 to n do
if abs(A[i,j])>abs(max) then
 begin
  max:=A[i,j];
  imax:=i;
 end;
writeln('Максимальный по модулю элемент=',max,' в строке ',imax);
k:=0;
for i:=1 to n do
if i<>imax then
 begin
  k:=k+1;
  for j:=1 to n do
  B[k,j]:=A[i,j];
 end;
writeln('Матрица В:');
for i:=1 to k do
 begin
  for j:=1 to n do
  write(B[i,j]:4);
  writeln;
 end;
end.