Создать файл, содержащий сведения о телефонах абонентов - Pascal ABC - Ответ 666936

type baza=record
   surname: string[10];
   name: string[10];
   telephone_number: string[50];
   year_install: integer;
   home: string[50];
end;
 
var
 
f:file of baza; friends: array [1..100] of baza;
a:array[1..100] of string;
   I,j,k, n: integer;
 
begin
writeln('Vvedite svedeniya ob abiturientah');
assign(F,'c:\baza.dat');
rewrite(f);
 
writeln('Введите количество людей');
readln(n);
for I:=1 to n do
 
  with friends [I] do begin
   begin
 
        writeln ('введите фамилию ',' ',i,'-го человека');
        readln (surname);
        writeln ('введите Имя ',' ',i,'-го человека');
        readln (name);
 
        writeln ('Телефонный номер:',' ',i,'-го человека');
        readln( telephone_number);
        writeln ('Год установки:',' ',i,'-го человека');
        readln(year_install);
 
 
          end;write(F,friends[i]); end;
          writeln;
           writeln;
 
 
writeln('Файл успешно создан');
 
 
 writeln;
 
while not Eof(F) do
 
for i:=1 to n do
read(f,friends[i]);
 
 
k:=0;
for i:=1 to n do
if (friends[i].surname=friends[i].surname)  then Writeln('Фамилия и Имя по заданному телефону:',i,'-го',' ','человека',' ',friends[i].surname,' ',friends[i].name);
 
 
 
writeln;
 
for i:=1 to n do
 
 
if (friends[i].telephone_number=friends[i].telephone_number) or (friends[i].telephone_number<>friends[i].telephone_number) then  inc(k);
 
writeln('Количество телефонов:', k)  ;
 
 
 
Close(F);
 
 
 
end.

while not Eof(F) do
 
for i:=1 to n do
read(f,friends[i]);