Задача на языке Паскаль! P.S: Дикая!!

[Ирина###]

Дикая задача !! Кажется что легкая, а зделать трудно!!

<<Напечатать самое длинное (короткое) слово из заданного текста.>>

[samec]

Стучите в асю 11один11-5шесть5шесть, обсудим.

[__STDC__]

хм.. в чем дикость?

[__STDC__]

Навскидку... переделал из старой проги, которую на этом же форуме и постил..

const
	separators = [' ',',','.',';',':'];

function separate(var str:string; var len:integer):string;
var
	i:integer;
begin
	separate := '';
	i := 1;
	while (not(str[i] in separators) and (i <= length(str))) do begin
		separate := separate + str[i];
		inc(i);
		inc(len);
	end;
	Delete(str,1,i);
end;

var
	str_in,tmp,str_out:string;
	len,maxlen:integer;
begin
	maxlen := 0;
	writeln('Enter str: ');
	readln(str_in);
	while (length(str_in) > 0) do begin
		len := 0;
		tmp := separate(str_in,len);
		if (len > maxlen) then begin
			str_out := tmp;
			maxlen  := len;
		end;
	end;
	writeln('Length is ',len);
	writeln('Word is ',str_out);
	readln;
end.