Выделить из каждой строки и напечатать подстроки,ограниченные с обеих сторон одной или несколькими русскими буквами

Uses crt;
Const kmax=20;
Type mass_st=array[1..kmax] of string;
mass_int=array[1..kmax] of integer;
Var st,st2:mass_st; num:mass_int; i,j,k,k2:integer; rus:string;
procedure p(k:integer; var st:mass_st; var k2:integer; var st2:mass_st; var num:mass_int);
var
i,j,j1,j2,len:integer;
begin
k2:=0;
For i:=1 to k do begin
j:=1;
len:=length(st[i]);
j1:=0; j2:=0;
While j<len do
If  pos(st[i][j],rus)>0 then begin
j1:=j;
     While (j1<=len-1) and (pos(st[i][j1],rus)>0) do
     j1:=j1+1;
         If j1<len then begin
            j2:=j1;
         While (j2<=len) and (pos(st[i][j2],rus)=0) do
         j2:=j2+1;
           If (j2<=len) and (j2<>j1)  then begin
           k2:=k2+1;
           st2[k2]:=copy(st[i],j1,j2-j1);
           num[k2]:=i;
           end;
         end;
 j:=j2;
 end else j:=j+1;
 end;
 end;
 
Begin
Writeln ('Дано k литерных строк.');
Writeln ('Каждая строка содержит латинские и русские буквы, цифры ,');
Writeln ('а также все возможные разделители. Требуется: ');
Writeln;
Writeln ('I. Выделить из каждой строки и напечатать подстроки,');
Writeln ('ограниченные с обеих сторон одной или несколькими русскими буквами.');
Writeln;
Writeln ('II.   Среди выделенных подстрок найти подстроку,');
Writeln ('содержащую максимальное число цифр.');
Writeln;
Writeln ('III.  Преобразовать исходную строку, которой принадлежит найденная подстрока,');
Writeln ('следующим образом:');
Writeln ('вставить три звездочки перед последней цифрой.');
Writeln;
Writeln ('Введите количество строк');
Repeat
Readln (k);
until (k>0) and (k<=kmax);
Writeln ('Введите ',k,' строки');
For i:=1 to k do
Readln (st[i]);
Rus:='йцукенгшщзхъфывапролджэячсмитьбюёЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ';
p(k,st,k2,st2,num);
If k2>0 then begin
Writeln ('Подстроки:');
For i:=1 to k2 do
Writeln (st2[i]) end else Writeln('Нет подстрок, удовлетворяющих условию!');
end.