Паскаль.Обработка строк.

[Dina44]

Здравствуйте! Оч прошу помочь.

Дан русский текст.Все слова оканчивающиеся на -онок или -енок представить во множественном числе.Перед буквой Т пишется а или я в зависимости от предыдущей буквы:если шипящая, то А,иначе Я.

Вот мой код.В нем я сделала только проверку если согласная предыдущая суффиксу не шипящая....И то в нем какие-то ошибки. Подскажите хоть чуть-чуть в чем у меня может быть ошибка

program pr3;
uses crt;
const WG=50;
type tmass=array[1..WG] of string;
var sl,sl2,sl3:tmass; ksl,i:byte; txt:string;
{функция определения букв символа}
function f_bukva(sim:char):boolean;
begin
 if (sim in ['а'..'я']) or (sim in ['А'..'Я']) or (sim in ['a'..'z']) or (sim in ['A'..'Z'])
  then f_bukva:=true else f_bukva:=false;
end;
{Процедура выделения слов}
procedure pr_slova(txt:string;var ksl:byte; var slova:tmass);
var i:byte;
begin
ksl:=1; slova[ksl]:='';
 for i:=1 to length(txt) do
  if f_bukva(txt[i]) then slova[ksl]:=slova[ksl]+txt[i] else if f_bukva(txt[i-1]) then
    begin inc(ksl); slova[ksl]:='';
   end;
end;

begin
writeln('введи исходный текст');readln(txt);
pr_slova(txt,ksl,sl);
for i:=1 to ksl do begin
if (copy(sl[i],length(sl[i])-4,4)='онок') or (copy(sl[i],length(sl[i])-4,4)='енок')
 then if (copy(sl[i],length(sl[i])-5,1)='щ') and (copy(sl[i],length(sl[i])-5,1)='ч')
 then begin  sl2[i]:='ата'; delete(sl[i],length(sl[i])-4,4); sl3[i]:=concat(sl[i],sl2[i]);end;
   writeln('новое слово-',sl3[i]);
end;
end.

[Serge_Bliznykov]

основная ошибка - не контролируете длину строки!!
ну как можно проверить подстроку начинающую с минус чётвёртой позиции, если слово, например, двух или трёхбуквенное!
т.е.

  if Length(sl[i])>4 then begin
    <тут Ваш код>if (copy(sl[i],length(sl[i])-4,4)='онок') 
            or (copy(sl[i],length(sl[i])-4,4)='енок')
          и т.д.
  end;

дальше я сам код не проверял...

[Dina44]

о..спасибо)) это обязательно учту)