Kā pascalā var teikumā atrast garāko vārdu?

Tātad man uzdeva šādu programmu: Uztaisīt programmu, kura atrod garāko vārdu teikumā. Tiek ievadīts teikums un tad jāatrod garākais vāds un tas jāizvada.
Man ir doma kā taisīt, bet nezinu kā varētu ieskaidrot to, lai viņš pogu space uzskatītu par atstarpi nevis par simbolu, kā arī īsti nez kur un kādas procedūras vēl pielikt.
Tāda tad izskatās mana doma:
program uzdevums;
uses crt;
var vards: char;
virkne: string;
i: integer;
begin
clrscr;
Writeln('Ievadiet ludzu teikumu!');
readln(virkne);
i:=length(virkne);
readln;
end.
Es zinu, ka length ir noteikti jāizmanto, bet kā to varētu apvienot ar pārējo nevaru izdomāt. Vai kāds man lūdzu varētu pasviest domu kā varētu turpināt?

Komentāri:

#3 drono @ 2008.01.08 00:56

garakais:="";
vards:="";
for i:=1 to legth(virkne) do
if burts(i)<>" " then
 vards+=burts(i);
else
 if length(vards)>length(garakais) then garakais:=vards;
 vards:="";
end;
end;

Tāds domu gājiens. Attiecīgās pascal funkcijas nepateikšu. "burts(i)" ir domāts attiecīgais burts, iegūstams ar 'substr' vai ko tamlīdzīgu.

#4 clalbus @ 2008.01.08 01:55

#5 LMN @ 2008.01.08 13:24

#6 LMN @ 2008.01.08 13:25

#7 clalbus @ 2008.01.08 13:42