Помогите пожалуйста с программой в Паскале!

Question

Нужно написать программу в Паскале (работа с текстовыми файлами) что бы самое большое слово строчки заменялось на 123.

Очень нужна ваша помощь, желательно быстрее, потому что нужно мне это сейчас на пару.

Виталий Емельянов, Мне перезадали задание на пятницу, помоги пожалуйста, потому что в твоей проге у меня ошибки, что-то не получается, не могу найти и исправить ошибки.

Наталья Пескова · Accepted Answer

var 
f:textfile; 
st:string; 
max,k:integer; 
begin 
assignfile(f,filename); 
reset(f); 
max:=0; 
k:=0; 
while not eof(f) do 
begin 
inc(k); 
readln(f,st); 
if length(st) знак больше max then num:=k; 
end; 
close(f); 
rewrite(f); 
k:=0; 
while not eof(f) do 
begin 
inc(k); 
if k = num then writeln(f,'123'); 
end; 
close(f); 
readln; 
end. 
 
написал на скоряк ...проверяй ...но старт тебе дан!