Vypsani nejdelsich slov do textoveho souboru – Pascal – Fórum – Programujte.com

Zdravim, mam tu jednu ulohu, s kterou uz si nevim rady. Rozpracoval jsem to, ale jsem docela amatér a vubec nevim jak dál.
Zatim jsem dospěl k tomuhle: viz nize. Prosim o pomoc pri reseni...diky.

program max_delka_slova;

uses crt;


var
F,G:text;
A,B:string;
Citac,Max:integer;
X:char;
slovo,last:string;

begin
ClrScr;

A:='vstup.txt';
B:='vystup.txt';
assign(F,A);

reset(F);



while not eof(F) do
begin
read(F,X);

if X<>' ' then
begin
Citac:=Citac+1;
slovo:=slovo+X;
end
else
begin


if Citac >= Max then
begin
assign(G,B);
rewrite(G);
writeln(G,slovo);
close(G);
last:=slovo;

Max:=citac;
Citac:=0;

end
else
Citac:=0;
slovo:='';
end;






end;


end.

Zapoměl jsem napsat zadání, takže tady:

Slovem v textu rozumíme souvislý úsek nemezerových znaků, který je z obou stran oddělen mezerami nebo konci řádku. Mezi dvěma slovy na řádku může být i více mezer. Na začátku a na konci řádku být mezery mohou, ale nemusí. Žádné slovo se nedělí na více řádků. Napište program, který v daném textovém souboru najde všechna slova maximální délky a zapíše je do výstupního souboru.