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