n,i,j,b: integer;
procedure input (a: array of integer);
var
i,n: integer;
begin
readln(n);
for i:=1 to n do
readln (a[i]);
end;
procedure swap(var a,b,c: integer);
begin
b:=c;
c:=a;
a:=b;
end;
begin
input(a);
for j:=1 to n-1 do
for i:=1 to n-j do
begin
if a[i] < a[i+1] then
swap(a[i+1], b, a[i]);
end;
writeln(a[n], ' - наименьшее');
writeln(a[1], ' - наибольшее');
end.
Вылетает на 9 строке на вводе
Форум читал, ссылки видел. Но не могу понять почему не работает, точно такая же процедура работала в другой программе.