index:=0;
While not eof(f) do
begin
  index:=index+1;
  Read(f, tomb[index]);
end;
beolvasott_adatmennyiseg := index;