Задание 6. Текстовый файл

Дан текстовый файл f. Преобразовать строки файла f по правилам. Преобразованные строки переписать в файл g.

Правило: Создать строку из символов, расположенных после первой запятой. Если запятых нет, то записать пустую строку.

Текст программы:

Program pr_6;

var

f,g:text;

s:string;

i,k:integer;

begin

assign(f,'C:\text.txt');

reset(f);

assign(g,'C:\text2.txt');

rewrite(g);

while not eof(f) do

begin

k:=0;

readln(f,s);

for i:=1 to length(s) do

begin

if s[i]=',' then

begin

k:=i+1;

break;

end;

end;

if k<>0 then

begin

for i:=k to length(s) do