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

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