Ссылочный тип данных. Динамическая память - Pascal ABC

Формулировка задачи:

Создайте файл состоящий из записей содержащих поля: 1) номер 2) фамилия 3) телефон. Организуйте вывод на экран монитора номера телефона по введённой с клавиатуры фамилии. Помогите сделать через указатель

Код к задаче: «Ссылочный тип данных. Динамическая память - Pascal ABC»

textual
uses crt;
type ukz=^abn;
     abn=record
         nom:integer;
         fam:string[20];
         tel:string[11];
         end;
var f:file of abn;
    n,i:integer;
    a:ukz;
    fm:string[20];
begin
assign(f,'data');
rewrite(f);
writeln('Сколько абонентов записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Абонент ',i);
  new(a);
  write('Номер: ');readln(a^.nom);
  write('Телефон: ');readln(a^.tel);
  write('Фамилия: ');readln(a^.fam);
  write(f,a^);
 end;
writeln('Введите фамилию для поиска');
readln(fm);
i:=0;
seek(f,0);
while not eof(f) do
 begin
  read(f,a^);
  if a^.fam=fm then
   begin
    i:=1;
    writeln(a^.tel);
   end;
 end;
close(f);
if i=0 then write('Абонента с такой фамилией нет')
end.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ