найдите ошибку. файлы. Паскаль

[Антон Лысенко]

program file12;
uses
SysUtils;

{$APPTYPE CONSOLE}

var f1:text; f2:text; f3:text;
str:string; n,i:byte;
procedure FillTextFile;
begin
Assign(f1,'f1Letter.txt');
Rewrite(f1);
Writeln('input string');
read(str);
writeln(f1,str); close(f1);
end;
begin
assign(f2,'f2letter.txt');
append(f2);
assign(f3,'f3letter.txt');
append(f3);
FillTextFile;
n:=length(str);

for i:=1 to n do
if (ord(str[i])>64) and (ord(str[i])<91) then
writeln(f2,str[i])
else
writeln(f3,str[i]);

close(f2);
close(f2);

{ TODO -oUser -cConsole Main : Insert code here }
end.

[Антон Лысенко]

задание: написать подпрограмму которая создает файл с английскими и русскими буквами. Написать программу которая в файл ф2 заносит анг буквы а в ф3 русские.

[Антон Лысенко]

program Lab_13;
uses
SysUtils;

{$APPTYPE CONSOLE}

var f1:text; f2:text; f3:text;
str:string; n,i:byte;
procedure FillTextFile;
begin
Assign(f1,'f1Letter.txt');
Rewrite(f1);
Writeln('input string');
read(str);
writeln(f1,str); close(f1);
end;
begin
assign(f2,'f2letter.txt');
rewrite(f2);
assign(f3,'f3letter.txt');
rewrite(f3);
FillTextFile;
n:=length(str);

for i:=1 to n do
if (ord(str[i])>64) and (ord(str[i])<91) then
writeln(f2,str[i])
else
writeln(f3,str[i]);

close(f2);
close(f3);

{ TODO -oUser -cConsole Main : Insert code here }
end.

[Антон Лысенко]

помогите! оно тупо переписывает а ф3. Почему?

[iBuTTHead]

А в чем проблемма то?

[Антон Лысенко]

program Lab_13;
uses
SysUtils;

{$APPTYPE CONSOLE}

var f1:text; f2:text; f3:text;
str:string; n,i:byte;
procedure FillTextFile;
begin
Assign(f1,'f1Letter.txt');
Rewrite(f1);
Writeln('input string');
read(str);
writeln(f1,str); close(f1);
end;
begin
assign(f2,'f2letter.txt');
rewrite(f2);
assign(f3,'f3letter.txt');
rewrite(f3);
FillTextFile;
n:=length(str);

for i:=1 to n do
if (ord(str[i])>64) and (ord(str[i])<91) or
(ord(str[i])>96)and (ord(str[i])<123)then
write(f2,str[i])
else
begin
write(f3,str[i]);
end;
close(f2);
close(f3);

{ TODO -oUser -cConsole Main : Insert code here }
end.

[Антон Лысенко]

а нет есть ещё проблема. файл ф1 остаётся не закрытым. Куда вставить close(f1)???

[iBuTTHead]

Он у тебя закрывается в твоей процедуре.

procedure FillTextFile;
begin
Assign(f1,'f1Letter.txt');
Rewrite(f1);
Writeln('input string');
read(str);
writeln(f1,str); close(f1);
end;

[Антон Лысенко]

А не увидел. Просто, помню что у меня были сомнения на счет него. И думал что я его удалил.... Значит всё идеально Я собой горжусь)))

[iBuTTHead]

Запутаться в 20 строках и гордится...