Fulkod.

type Seek_Arr is array(1..10) of Integer;

procedure Read_Int(Seek : in out Seek_Arr) is
Arr_Seek : Seek_Arr;
Int : Integer;
begin
for G in 1..10 loop
Arr_Seek(G) := 0;
end loop;

for I in 1..10 loop
Get(Int);
if Int = 0 then
exit;
end if;
Arr_Seek(I) := Int;
end loop;
end Read_Int;

Lite trött.. Vad är det som är fel?
/Erik