Ну могу никак разобраться ...Мне не нужна полность программа, а нужны лиш алгоритмы поиска окончаний -ина и замены их на -ин...Можно и по частям

Investor,
бьешь строки на слова (с использованием вот этой функции, например: Разбиение строки на слова), тогда все, что тебе нужно - сделать следующее:

const
  max_word = 255;
var
  words: array[1 .. max_word] of wrd_info;
  s: string;
  i, n: integer;

begin
    readln(s);
    n := get_words(s, words);
    for i := 1 to n do
      if copy(s, words[i].start + words[i].len - 3, 3) = 'ина'
      then delete(s, words[i].start+words[i].len - 1, 1);
      {
         или (чтобы не было проблем со сдвигом строки):
         s[ words[i].start + words[i].len - 1 ] := ' ';
      }

    writeln(s);
end.

Спасибо...