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

[gessi]

Здравствуйте!!!
Помогите решить вот эту задачу не через строку,как я решила,а через массив!!!!!!!!

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

Мое решение:

var
    count, i, m , j: integer;
    input : string;
    s, t : string;
begin
writeln('Vvedite stroky: ');
readln(input);
i:= length(input) - 1;
while input[i] <> ' ' do dec(i);
s:= copy(input, i + 1, length(input) - i - 1);
for j:= 1 to i do
begin
if input[j] <> ' ' then
t:= t + input[j]
else
begin
if (t <> ' ') and (t <> s) then
writeln(copy(t, 1, length(t) - 1));
t:= ' ';
end;
end;
readln;
end.

ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!

[Stilet]

а через массив!!!!!!!!

Т.е. тебе строку нужно преобразовать в массив слов?

[gessi]

Мне нужно занести в массив каждое слово в отдельности и потом работать с ними.

[Stilet]

Ну это легко:

 var s:string; a:array[1..100] of string;
  i,count:integer;
begin   {$o-}
 s:='Hello my world';
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[i]=' ' then begin inc(count);inc(i);end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;

Count - количество слов