Загрузка данных из типизированного файла

[Doholyan]

То есть....число "0" это первая запись....вроде уяснил...спасибо попробую.
А...если, типизированный файл...будет масивом он как будет записываться?

[puporev]

1. У Вас уже есть переменная stroka:MenR;, пооэтому переменная а не нужна.
2. Номера записей в файле начинаются с ноля, поэтому когда Вы вводите только одну запись, ее индекс=0. Вы запращиваете запись с индексом 1, такой записи нет, программа выдает ошибку.
Вот немного поправил Вашу программу.

program VVod;
uses crt;{подключите этот модуль с ним лучше работать}
type
      MenR=record
        Name:string;
        Numer:byte;
        tel:byte;
        Pol:Char;
        end;
      Men=file of MenR;

var
      stroka:menR;
      in_f:file of MenR;
      c:char;{переменная для окончания ввода}
      i:byte;{индекс запрашиваемой записи}
      begin
      clrscr;{очищаем экран}
      assign(in_f,'re');
      rewrite(in_f);
      writeln('Vvedite dannye, okonchanie-Esc');
      repeat{как правило мы не знаем сколько будет записей, 
поэтому используем цикл с постусловием, если знаем, то можно for..do}
      write('name ');
      readLn(stroka.name);
      write('Numer ');
      readLn(stroka.Numer);
      write('telefon ');
      readln(stroka.tel);
      write('pol ');
      readLn(stroka.Pol);
      write(in_f,stroka);
      c:=readkey;{после ввода одной записи ожидаем нажатия клавиши, 
если Esc-заканчиваем, иначе-продолжаем}
      until c=#27;
      reset(in_f);{закрывать здесь файл не обязательно}
      repeat{делаем запрос индекса записи с проверкой выхода за пределы файла}
      write('Nomer zapisi i=');
      readln(i);
      if i>filesize(in_f)then writeln('V faile net ',i,' zapisey! Povtorite zapros.');
      until (i<=filesize(in_f))and(i>0);
      reset(in_f);
      seek(In_f,i-1);
      read(in_f,stroka);
      writeln(stroka.name,' ',stroka.numer,' ',stroka.tel,' ',stroka.pol);
{выводим через пробел}
      close(in_f);{в конце обязательно закрыть файл}
readLn;
end.

Насчет массива. Если используется файл прямого доступа, например типизированный, то массивы обычно не используют, так как и так все записи пронумерованы и с файлом можно работать как с массивом. Но приведу пример ввода массива, хоть он тут и не нужен.

program VVod;
uses crt;
type
      MenR=record
        Name:string;
        Numer:byte;
        tel:byte;
        Pol:Char;
        end;
      Men=file of MenR;

var
      st:array[1..100] of menR;{масив записей}
      in_f:file of MenR;
      a:menR;{переменная для чтения запроса из файла}
      n,i,k:byte;
      begin
      clrscr;
      assign(in_f,'re');
      rewrite(in_f);
      write('Kolichestvo zapisey n=');readln(n);
      for i:=1 to n do
       begin
        writeln('Zapis ',i);
        write('name ');readLn(st[i].name);
        write('Numer ');readLn(st[i].Numer);
        write('telefon ');readln(st[i].tel);
        write('pol ');readLn(st[i].Pol);
        write(in_f,st[i]);
       end;
      reset(in_f);
      repeat
      write('Nomer zapisi k=');
      readln(k);
      if k>n then writeln('V faile net ',k,' zapisey! Povtorite zapros.');
      until k<=n;
      reset(in_f);
      seek(In_f,k-1);
      read(in_f,a);
      writeln(a.name,' ',a.numer,' ',a.tel,' ',a.pol);
      close(in_f);
readLn;
end.

[Doholyan]

Спасибо!!
Спасибо!!

[Doholyan]

нет....громадное спасибо!!!