Строковый тип

[SilenceLOL]

Помогите сделать задание в паскале

Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: -удалить из слова все предыдущие вхождения последней буквы

[Aleksandr H.]

uses crt;
type arr = array[1..30] of string[10];
var a:arr;
i,wcount:byte;
txt:string;

procedure splitdata(s:string);
var dot_pos,i:byte;sn,w:string;
begin
 dot_pos := pos('.',s);
 if dot_pos = 0 then begin writeln('WRONG DATA'); exit end;
 sn:=copy(s,1,dot_pos-1)+' ';
 w:='';
 for i:=1 to length(sn) do
  begin
    if sn[i] <> ' ' then w:=w+sn[i] else
    begin
    if w<>'' then
     begin
      inc(wcount);
       if(wcount>30) then
        begin
         writeln('WRONG DATA'); exit
        end
       else
        begin
         if length(w)>10 then
          begin
           writeln('WRONG DATA');exit
          end
          else
          begin
           a[wcount]:=w; w:=''
          end
        end
     end;
    end;
  end;
end;

procedure sht(a:arr);
var i,j:byte;s:string;
begin
  for i:=1 to wcount-1 do
   begin
    if a[i]<>a[wcount] then
     begin
      j:=1;
      while j<=length(a[i])-1 do
      begin
       if a[i][j]=a[i][length(a[i])] then
        delete(a[i],j,1)
       else
        inc(j)
      end;
      writeln(a[i]);
     end;
   end;
end;

begin
write('Input Line : ');readln(txt);
splitdata(txt);
for i:=1 to wcount do
 write(a[i],' ');
writeln;
sht(a);
 readln;
end.