var
  arr: array[1..80] of integer;
  i: integer;
...
assign(input, 'input.txt');
reset(input);
i := 1;
while not eof(input) do
begin
  readln(arr[i]);
  i := i + 1;
end;
closefile(input);