В массиве (0..12) найти номер элемента, наименее отличающегося от числа 3,1416. Программа Delphi 7

program test;

var

i,l:integer;

a:array[1..12] of real;

m:real;

for i:=1 to 12 do

m:=abs(a[1]-3.1416);

l:=1;

for i:=2 to 12 do

if abs(a[i]-3.1416)<m then

m:=abs(a[i]-3.1416);

l:=i;

end;

end;

write(l);

end.