Найти то слово, которое короче остальных

@dmitry96601 · Регистрация: 15.03.2015

Author24 — интернет-сервис помощи студентам

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

Pascal

s:string;
sl:string;
a:array[1..30] of string [5];
i:integer;
begin
readln (s);
s:='abc';
s[length (s)];
i:=0
repeat 
k:=pos(',',s);
s:=copy ('s,'1,k,1);
i:=i+1;
a[i]:=sl;
delete (s,1,k)

Спасибо

@ZX Spectrum-128 · 17.05.2015, 21:15

Найти самое короткое слово

@dmitry96601 · 18.05.2015, 05:17 **[ТС]**

Мне по образцу надо

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	17.05.2015, 21:15	2
	Найти самое короткое слово 0

@dmitry96601 0 / 0 / 0 Регистрация: 15.03.2015 Сообщений: 13
	18.05.2015, 05:17 [ТС]	3
	Мне по образцу надо 0