Работа с текстовыми файлами

[Silverstone]

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

Объясните, каким образом мне обратится к первому символу для начала проверки, и какое условие для проверки писать вообще?

Program ex9;
var
  f,d:text;
  x,x1:string;
  i,n:byte;
begin
 assign(f,'D:\text.txt'); rewrite(f);
   repeat 
    writeln('введите текст');
    if x<>' ' then write(f,x);
    readln(x);
   until x=' '; 
 close(f);

reset(f);

 assign(d,'D:\text1.txt'); rewrite(d);
   while not eof(f) do begin  
    readln(f,x);
    
{}
      
    writeln(d,x);
   end;
 close(d);
 
close(f);
  erase(f); 
  rename(d,'D:\final_text.txt');
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[zhan313]

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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Silverstone]

Ок. Сейчас буду реализовать.
И тебе модератор ок

[Silverstone]

Поцаны. Кто-нибудь с условием проверки может помочь? Не понимаю в упор как его нужно реализовать. Вот пока что есть:

Program ex9;
var
  f,d:text;
  x:string;
  i:byte;
begin
 assign(f,'D:\text.txt'); rewrite(f);
   repeat 
    writeln('введите текст');
    if x<>' ' then write(f,x);
    readln(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
   if x[i]=',' then
      case x[i-1] of
      ' ': delete(x,(i-1),1);
      ',': delete(x,(i-1),1);
      end;
  end;     
    writeln(d,x);
   end;
 close(d);
 
close(f);
  erase(f); 
  rename(d,'D:\final_text.txt');
end.