Редактирование текстового файла.

[Silverstone]

Текстовая информация вводится с клавиатуры и заносится в текстовый файл. Признаком окончания ввода служит ввод пустой строки. Файл закрыть, затем открыть его для чтения и отредакти-ровать: в каждой строке текста проверить правильность расстанов-ки запятых. Правила следующие – в начале строки не должно быть запятой, не может идти подряд две и более запятых, перед запятой не может быть пробела, после запятой должен быть хотя бы один пробел. Отредактированный текст записать в промежуточный файл. Затем старый файл удалить, а новый переименовать – дать ему старое имя. Содержимое отредактированного файла выдать на экран.

не знаю как реализовать данное "правило". помогите пожалуйста.

repeat 
    writeln('введите текст');
    readln(x);
    if x<>'' then write(f,x);
   until x=''; 
 close(f);

reset(f);

 assign(d,'D:\text1.txt'); rewrite(d);
   while not eof(f) do begin  
    readln(f,x);
    if pos(',',x)<>0 then
       begin


       end;
    writeln(d,x);
   end;
 close(d);
 
close(f);
  erase(f); 
  rename(d,'D:\final_text.txt');
end.

[Mad_Cat]

в начале строки не должно быть запятой

while s[1]=',' do delete(s,1,1);

не может идти подряд две и более запятых

while  pos(',,',s)<>0 do delete(s,pos(',,',s),1);

перед запятой не может быть пробела

while  pos(' ,',s)<>0 do delete(s,pos(' ,',s),1);

после запятой должен быть хотя бы один пробел

i:=1;
while i<=length(s) do
begin
if (s[i]=',') and (s[i+1]<>' ') then begin insert(' ',s,i);inc(i,2);end
else inc(i);
end;