Pascal-Работа с текстовыми файлами. Нужна помощь с условием проверки.

[Chromegolf]

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

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

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.

@темы: Вопрос, Pascal

Comments

[Vj_o-oy]

проверяется довольно банально:
первый символ - запятая
наличие в тексте ",,", " ,", "\n," (\n - новая строка, не помню, как оно в паскале)
после чего взять все запятые и просмотреть, какой символ идет после них.