Текстовые файлы в паскале

[Nc1ty_SoBoL]

Привет всем! Помогите решить задачу добрые люди

Дан текстовый файл. Удалить из него все лишнее пробелы, оставив между словами не более одного пробела. Результат поместить в новый файл.

[Sazary]

В следующий раз предоставляйте свои наработки.

uses crt;
var
f,f2 : text;
str : string;
k : integer;
begin
clrscr;
assign(f,'test.txt');
assign(f2,'test_out.txt');
reset(f);
rewrite(f2);
while not eof(f) do
 begin
 readln(f,str);
 repeat
 k := pos('  ',str);
 if k>0 then delete(str,k,1);
 until k=0;
 writeln(f2,str);
 end;

close(f);
close(f2);
readln;
end.

[Nc1ty_SoBoL]

Договорились! Спасибо за помощь!