Программа по обработке массивов данных выдает ошибки при запуске

Program Lab4;
Uses crt;
Type
Mas=array [1..5,1..5] of integer;
Var
i,j,buf,k,NA,NB:integer;
A,B,C:Mas;
begin
    clrscr;
    k:=0;
    for i:=1 to 5 do
     for j:=1 to 5 do readln(A[i,j]); {Ввод массива A}
    for i:=1 to 5 do
     for j:=1 to 5 do B[i,j]:=i*cos(i+j); {Формирование массива B}
    for i:=1 to 5 do
     for j:=1 to 5 do if A[i,j]>2.5 then NA:=NA+1;
    for i:=1 to 5 do
     for j:=1 to 5 do if B[i,j]>2.5 then NB:=NB+1;
    if NA>NB then
        begin
        for i:=1 to 5 do
         for j:=1 to 5 do C[i,j]:=A[i,j];
        for j:=1 to 5 do
                begin
                for i:=1 to 5 do
                 begin
                 buf:=C[i,j];
                 C[i,j]:=C[i+1,j];
                 C[i+1,j]:=buf;
                 i:=i+1;
                 end;
                end
                else begin
                 for i:=1 to 5 do
                  for j:=1 to 5 do C[i,j]:=B[i,j];
                 for j:=1 to 5 do
                 begin
                 for i:=1 to 5 do
                  begin
                  buf:=C[i,j];
                  C[i,j]:=C[i+1,j];
                  C[i+1,j]:=buf;
                  i:=i+1;
                  end;
                 end;
                end;
        end;
    for i:=1 to 5 do
     for j:=1 to 5 do writeln(B[i,j]); {Вывод B}
    writeln(NA);
    writeln(NB);
    for i:=1 to 5 do
     for j:=1 to 5 do writeln(C[i,j]); {Вывод C}
Readkey
end.