что я не делала, у меня после ввода значений появляется ошибка error 100
вот код
uses crt;
const
n = 5;
procedure save_file ( Filename : string );
var
f : file of integer;
x : integer;
i : byte;
begin
assign (f, filename);
rewrite (f);
for i := 1 to n do
begin
read (x);
write (f, x);
end;
close (f);
end;
procedure print_file( filename : string );
var
f : file of integer;
i : byte;
x : integer;
begin
assign (f, filename);
reset (f);
while not eof (f) do
begin
read (f, x);
writeln (x:4);
end;
close (f);
end;
procedure basis_part( fnin, fnout : string );
var
fin, fout : file of real;
x : real;
i : byte;
y : real;
begin
assign (fin, fnin);
assign (fout, fnout); reset ( fin);
rewrite (fout);
while not eof(fin) do
begin
read (fin, x );
y := sin (x) / cos (x);
write ( fout, y );
end;
close (fin);
close (fout);
end;
BEGIN
clrscr;
save_file ( 'file2.bin' );
print_file ( 'file2.bin' );
basis_part ('file2.bin', 'file2_out.bin');
writeln ( '========================');
print_file ('file2_out.bin');
readkey;
end.
ума не приложу, что не так.... объясните пожалуйста!!!!