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

[Novichok92]

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

Задача:
Дана последовательность, содержащая от 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.

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

[Unconnected]

var s:string;
    i:integer;
    i2:byte;
    words:array[2..30] of string[50];

begin
  writeln('Vvedite posledovatelnost slov cherez probel, tochku ne zabudte');
  readln(s);
  i2:=1;
  while (pos(' ',s)<>0) do
  begin
    inc(i2);
    words[i2]:=copy(s,1,pos(' ',s)-1);
    delete(s,1,pos(' ',s));
    while(s[1]=' ') do delete(s,1,1);
  end;
  inc(i2);
  words[i2]:=copy(s,1,length(s)-1);
  for i:=2 to i2 do
    if (words[i]<>words[i2]) then writeln(copy(words[i],1,length(words[i])-1));
  readln;
end.