Циклы в двумерных массивах

kotov       inzhener
sanin       prodavez
lukin         kassir
somov        voditel
vanin         tehnik
lenin         tehnik
nosov         kassir
romin        manager
zanin       prodavez
mosin        voditel
durov       inzhener
repin         tehnik
panin       inzhener
panov        voditel
kolin         kassir

program p11;
type
t=array[1..20] of char;
tt=array[1..15] of t;
var
A:tt;B:t;
i,j,k,S:integer;
Begin
     assign(input,'spisok.inp');
     reset(input);
    For i:=1 to 15 do
     Begin
          For j:=1 to 20 do
          Begin
          read (A[i,j]);
          End;
     readln;
     End;
 
writeln ('*****************');
i:=1;
j:=7;
S:=0;
For i:=1 to 15 do
Begin
    For j:=7 to 20 do
    Begin
       If A[i,j]='r' Then i:=i+1 Else j:=j+1;
       End;
    S:=S+1;
End;
    write ('strok bez r ',S);
    writeln;
End.

For j:=7 to 20 do
    Begin
       If A[i,j]='r' Then i:=i+1 Else j:=j+1;
       End;

for i:=1 to 6 do
 begin

for i:=10 to 15 do
 begin

S:=15;
For i:=1 to 15 do
  Begin
    For j:=7 to 20 do
    If A[i,j]='r' Then s:=s-1;
  End;
    write ('strok bez r ',S);
    writeln;
End.

S:=15;P:=0;
For i:=1 to 15 do
  Begin
    For j:=7 to 20 do
    If A[i,j]='r' Then s:=s-1 else P:=P+1;
  End;
    writeln ('strok bez r ',S);
    writeln('propuscheno strok=',P);
    writeln;
End.

S:=15;P:=0;
For i:=1 to 15 do
  Begin
    k:=0; 
    For j:=7 to 20 do
    If A[i,j]='r' Then k:=1;
    if k=0 then s:=s-1 else P:=P+1;
  End;
    writeln ('strok bez r ',S);
    writeln('propuscheno strok=',P);
    writeln;
End.