Задача со строками (Pascal)

[XaMeJleoH]

Нужна помощь с программой.
Дана вот такая задача:

Строка представляет собой фамилию, имя и отчество. Слова разделены одним или несколькими пробелами.Преобразовать исходную строку в три строки и удалить из слов все символы, отличные от русских букв.

Вот небольшой алгоритм, как нужно сделать:
http://school180.3dn.ru/scan0002.jpg

Пожалуйста помогите, очень нужно.

[Викдон]

как то так:

Const M=['А'..'Я', 'а'..'п','р'..'я'];
var mas:array[1..3] of string;
      stroka:string;
      i,t:integer;

begin
write('Введите строку: ');
readln(stroka);

for i:=1 to length(stroka) do
    if (stroka[i]<>' ') and ((stroka[i-1]=' ') or (i=1)) then
      begin
          while stroka[i]<>' '  do 
             begin
               slovo:=slovo+stroka[i];
               inc(i);
            end;
          inc(t);
          mas[t]:=slovo;
       end;


for i:=1 to 3 do
 begin 
  slovo:=mas[i];
    for t:=1 to length(slovo) do
      if not (slovo[t] in M) then
         begin
            delete(slovo,t,1);
            dec(t);
            mas[i]:=slovo;
        end;
  end;

end.

[XaMeJleoH]

Выводит ошибку,после ввода строки.
Еще, вы забыли дописать, slovo:string;

[Викдон]

Const M=['А'..'Я', 'а'..'п','р'..'я'];
var mas:array[1..3] of string;
      stroka,slovo:string;
      i,t:integer;

begin
write('Введите строку: ');
readln(stroka);

 while i<=length(stroka) do
    begin
    inc(i);
    if (stroka[i]<>' ') and ((stroka[i-1]=' ') or (i=1)) then
      begin
       slovo:='';
            while (stroka[i]<>' ') do
             begin
                slovo:=slovo+stroka[i];
                 inc(i);
                  if i>length(stroka) then
                    begin
                     dec(i);
                     break;
                    end;
             end;
          inc(t);
          mas[t]:=slovo;

      end;
   end;

for i:=1 to 3 do
 begin
  slovo:=mas[i];
    for t:=1 to length(slovo) do
      if not (slovo[t] in M) then
         begin
            delete(slovo,t,1);
            dec(t);
            mas[i]:=slovo;
        end;
  end;

 for i:=1 to 3 do
  write(mas[i],' ');
readln;
end.

[XaMeJleoH]

Выдаёт ошибку.После ввода строки, программа зависает,нажимаю Ctrl+ break , указывает то на 41,то на 39 строку.