помогите пожалуйста решить задачу по паскалю и составить блок схему!

[...Оленька...]

Дан текстовый файл f. Добавить букву с в конец каждой строки текстового файла.

[Sazary]

uses crt;
const c = 'c';
var
fin,fout : text;
ch : char;
begin
clrscr;
assign(fin,'input.txt');
assign(fout,'output.txt');
{$I-}
reset(fin);
{$I+}
if IOResult <> 0 then
  begin
  writeln('Oshibka pri otkrytii fajla!');
  readln;
  exit;
  end;
rewrite(fout);
while not eof(fin) do
 begin
  while not eoln(fin) do
   begin
   read(fin,ch);
   write(fout,ch);
   end;
  write(fout,c);
  writeln(fout);
  readln(fin,ch);
 end;
close(fin);
close(fout);
erase(fin);
rename(fout,'input.txt');
end.

[pomoshnic]

Var f,t:text;
S: string;
Begin
Assign(f,'f.txt');
Assign(t,'t.txt');
Reset(f);
Rewrite(t);
While not eof(f) do
Begin
Readln(f,s);
Write(t,s);
Writeln(t,'c');
End;
Erase(f);
Rename(t,'f.txt');
End.

[Sazary]

pomoshnic Позвольте поправить:
перед erase нужно добавить:

close(f);
close(t);

Иначе, не будет работать )

[pomoshnic]

Извиняюсь, просто я сейчас не дома и 'хожу' на сайт с телефона, а здесь не проверишь код.