Работа с файлами

Program 62;
 
const
n=10;
 
var
f:text;
 
a:array [1..n] of integer;
i,min:integer;
 
begin
assign(f,'in.txt');
reset(f);
 
while not EOF(f) do
begin
i:=i+1;
read(f,a[i]);
end;
close(f);
 
min:=a[1];
for i:=1 to n do
if a[i]<min then
min:=a[i];
 
assign(f,'out1.txt');
rewrite(f);
writeln(f,min);
 
for i:=1 to n do
write(f,a[i]:3);
close(f);
readln;
 
end.

for i:=1 to n do

uses crt;
var f:text;
    a:array [1..100] of integer;
    n,i,min:integer;
begin
assign(f,'in.txt');
reset(f);
n:=0; {количество чисел в файле любое, не больше 100}
while not seekeof(f) do{чтобы не читало пробелы за последним числом}
 begin
  n:=n+1;
  read(f,a[n]);
 end;
close(f);
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
assign(f,'out1.txt');
rewrite(f);
writeln(f,min);
for i:=1 to n do
write(f,a[i]:3);
close(f);
readln;
end.

k,i,min:integer;
 
begin
  assign(f,'in.txt');
  reset(f);
  k := 0; 
  while not EOF(f) do
  begin
    read(f,a[i]);
    inc(k);
  end;
  close(f);