Помогите решить вот эту задачу не через строку,как я решила,а через массив!!!!!!!!
Задача:
Дана последовательность, содержащая от 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.
ПОМОГИТЕ!!!!!!!!!!!!!