Доброго времени суток!
написал прогу, но выходной фаил висит. Что в ней не правильно? Завтра с утра сдавать, дотянул...



Program de;
uses crt;
Var f,h,w:file of integer;
a,b,c:string;
i,j,s:integer;
Begin
clrscr;
a:='c:\f86.txt';
b:='c:\h96.txt';
c:='c:\w106.txt';
assign (f,a); reset (f);
assign (h,; reset (h);
assign (w,c); rewrite (w);
read (f,s);
for i:=1 to s do
write (w,s);
while not eof (f) do begin
end;
read (h,s);
for j:=1 to s do
write (w,s);
while not eof (h) do begin
end;

close(f); close(h); close(w);
writeln;
readkey;
end.