Код
program es;
uses graph, crt;
type int=integer;
var gd,gm, i:integer;
l:longint;
ch:char;
ts:string;
fail: file of int;
begin
gd:=detect;
initGraph(gd,gm,'d:\bp\bgi');
assign(fail,'filefor.dat');
rewrite(fail);
l:=0;
while not eof(fail) do
begin
seek(fail,l);
write('Введите числf');
readln(i);
for i:=1 to 10 do
write(fail,i);
end;
l:=0;
for i:=1 to 10 do
begin
seek(fail,l);
read(fail,i);
str(i:6,ts);
setcolor(7);
outtextxy(20,30,'ugh');
end;
readln;
closegraph;
end.
uses graph, crt;
type int=integer;
var gd,gm, i:integer;
l:longint;
ch:char;
ts:string;
fail: file of int;
begin
gd:=detect;
initGraph(gd,gm,'d:\bp\bgi');
assign(fail,'filefor.dat');
rewrite(fail);
l:=0;
while not eof(fail) do
begin
seek(fail,l);
write('Введите числf');
readln(i);
for i:=1 to 10 do
write(fail,i);
end;
l:=0;
for i:=1 to 10 do
begin
seek(fail,l);
read(fail,i);
str(i:6,ts);
setcolor(7);
outtextxy(20,30,'ugh');
end;
readln;
closegraph;
end.
не получаеться правильного ответа((( помогите пож..