Текстовый файл! Задача!

[Straiker]

Помогите плиз!!! Написать программу, которая вставляет пробел после знаков препинания в текстовом файле, если его там нет.

Я написал код который встваляет пробелы после запятой а нада после всех знаков препинания!!! И почему то читает только первую строку в файле, если в файле создавать несколько строк, то прога виснет!!! Помогите плиизз!!!!

procedure probel(var f:text);
begin
assign (f2,'C:\ret.txt');
rewrite(f2);
assign (f,'C:\ter.txt');
reset (f);
while not eof(f) do
read(f,s);
while pos(',',s)<>0 do
begin
if s[pos(',',s)+1]<>' ' then
begin
ss:=ss+copy(s,1,pos(',',s))+' ';
delete (s,1,pos(',',s));
end
else
begin
ss:=ss+copy(s,1,pos(',',s)+1);
delete (s,1,pos(',',s)+1);
end;
end;
write(f2,ss);
close(f);
close(f2);
erase(f);
rename(f2,'C:\ter.txt');
end;

[capta1n]

заведи множество знаков препинания и проверяй символы строки на содержание их в этом множестве - прости, не могу написать код - экзамен по физике завтра

[pomoshnic]

Read(f,s) - замени на readln(f,s) , должно исправить ошибку с зависанием.

[capta1n]

верное замечание - read вообще процедура очень коварная

[Straiker]

Парни, спасиб, это уже по не внимательности, запарился эти проги писать, уже элементарных ошиьок не вижу!!!!

Множество знаков пытался завести через массив в константе, но че то не получаеться((((