процедура и массив

[Настя М]

Помогите найти ошибку, пожалуйста! (Переменные не менять)

Программа. Дано 80 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу.

program lab7;
uses crt;
type
a1=array[1 .. 90] of real;
var
i1,m1,n1: integer;
c1,k1: real;
f1:text;

procedure qwe( var a: a1; n:integer; c,k: real; m: integer);
var
i: integer;
begin
for i:=1 to n do
begin
if frac(a[i])>=0.5 then k:=1-frac(a[i])
else k:=abs(0- frac(a[i]));
if k<c then
begin
c:=k;
m:=i;
end;
end;
end;

Begin
assign(f1,'c:\lab7b.txt');
reset(f1);
i1:=1;
c1:=1;
n1:=0;
while not eof(f1) do
begin
readln(f1,a1[i1]);
i1:=i1+1;
n1:=n1+1;
end;
qwe(n1,c1,k1,m1);
writeln(m1);
end.

[Serge_Bliznykov]

так?

program lab7;
uses crt;
type
  a1 = array[1..80] of real;
var
  Mas: a1;
  i1, m1, n1: integer;
  f1: text;

procedure qwe(var a: a1; n: integer; var m: integer);
var
  i: integer;
  c, k: real;
begin
  c := 1.0;
  for i := 1 to n do
  begin
    if abs(frac(a[i])) >= 0.5 then k := 1 - abs(frac(a[i]))
    else k := abs(frac(a[i]));
    if k < c then
    begin
      c := k;
      m := i;
    end;
  end;
end;

begin
  assign(f1, 'd:\lab7b.txt');
  reset(f1);
  i1 := 1;
  n1 := 0;
  while not eof(f1) do
  begin
    readln(f1, Mas[i1]);
    i1 := i1 + 1;
    n1 := n1 + 1;
  end;
  close(f1);
  qwe(Mas, n1, m1);
  writeln(Mas[m1]);
end.