Обработка массивов

uses crt;
const m=5;    {Kolichestvo strok}
      n=4;    {Kolichestvo stolbtsov}
var i,j,ct:integer;
    ct1,ct2:array[1..m] of integer;
    a:array[1..m,1..n] of integer;
begin
clrscr;
randomize;
    for i:=1 to m do
    for j:=1 to n do 
        a[i,j]:=100-random(200)+1;    {promezhutok [-100..100]}
        writeln('Ishodniy massiv:');
            for i:=1 to m do begin
            for j:=1 to n do
                write(a[i,j]:3);
                writeln;
            end;
    writeln('Noviy massiv:');
 for i:=1 to m do
 for j:=1 to n do begin
 ct:=ct+1;
    if  (abs(a[i,j])>10) then begin
        a[i,j]:=10;
        ct1[i]:=ct1[i]+1;
        end 
        else if (abs(a[i,j])<=10) then begin
        a[i,j]:=i;
        ct2[i]:=ct2[i]+1;
        end
     end;
            for i:=1 to m do begin
            for j:=1 to n do
                write(a[i,j]:3);
                writeln;
            end;
writeln(i,': Kolichestvo zamen po stroke pervogo(>10) i vtorogo(<=10) vida:  ');
for i:=1 to m do 
 writeln(i,' stroka:  ',ct1[i],' (1-ogo)  ',ct2[i],' (2-ogo)');
 writeln('Kolichestvo zamen po matritse: ',ct);
end.