Не пойму что неверно в моей программе?

[НеАдЕкВаТнАя]

Вот условие: Организовать текстовый файл, состоящий из 3х строк, содкржащий слова, разделённые несколькими пробелами. Преобразовать файл, удалив в каждой его строке лишние пробелы. Сосчитать общее количество слов в файле. Проверить содержание файла.

Вот код программы:
PROGRAM File1;
Uses crt;
VAR
f1,f2: text;
s,s1,s2,s3: string;
dl,i,k:integer;
BEGIN
Clrscr;
assign (f1, 'File1.txt');
rewrite (f1);
s1:='Ochen polezno izuchat';
s2:='vsem studentam';
s3:='iazik Pascal';
writeln ( f1,s1 );
writeln ( f1,s2 );
writeln ( f1,s3 );
close (f1);
Writeln('sodershimoe faila');
Read;
dl:=0;
Reset (f1);
While not EOF(f1) do begin
readln(f1,s);
writeln(s);
end;
dl:=0;
i:=0;
While not EOF(f1) do begin
While not eoln(f1) do begin
Read(f1,s);
For k:=0 to length(s)-1 do begin
if (s[k]=' ') and (s[k]<>s[k+1])
then dl:=dl+1;
Writeln('koli4estvo slov v itoi stroke = ',dl+1);
readln;
end;
end;
end;
Assign(f2,'temp.txt');
Rewrite(f2);
While not EOF(f1) do begin
Readln(f1,s);
While not eoln(f1) do begin
While (i+1)<=length(s) do begin
if (s[1]=' ') or ((s[i]=' ') and (s[i+1]=' ')) then
begin delete(s,i,1);
dec(i);
end;
inc(i);
end;
end;
Writeln(f2,s);
end;
Close(f1);
Close(f2);
Erase(f1);
ReName(f2,'File1.txt');
Reset (f2);
While not EOF(f2) do begin
readln(f2,s);
writeln(s);
end;
end.

[Serge_Bliznykov]

Тема не отражает суть задачи.

код не оформлен тегами...

ЗАКРЫТО