Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см

var a: file of {имя записи}
begin
assign(a,'file.bin');
for i:=1 to n do
write(a,{элемент массива записи});
end.

uses crt;
const n=4;
type rec=record
      fname,lname,tname:string;
      rost,ves:integer;
     end;
var x:array[1..n] of rec;
    i,k,min,max:integer;
    sr:real;
    f:text;
begin
ClrScr;
for i:=1 to n do
 begin
  Write(' Fname: ');
  Readln(x[i].fname);
  Write(' Lname: ');
  Readln(x[i].lname);
  Write(' Tname: ');
  Readln(x[i].tname);
  Write(' Rost: ');
  Readln(x[i].rost);
  Write(' Ves: ');
  Readln(x[i].ves);
 end;
Writeln;
sr:=0;
k:=0;
for i:=1 to n do
 begin
  if x[i].rost>=170 then
   inc(k);
  sr:=sr+x[i].rost;
 end;
sr:=sr/n;
Writeln('--------------------------------------------------');
Writeln('||  Lname  |  Fname  |  Tname  |  Rost  |  Ves  ||');
Writeln('--------------------------------------------------');
for i:=1 to n do
 Writeln('||',x[i].fname:9,'|',x[i].lname:9,'|',x[i].tname:9,'|',x[i].rost:8,
          '|',x[i].ves:7,'||');
Writeln('--------------------------------------------------');
Assign(f,'f.txt');
Rewrite(f);
Writeln(f,'Sr rost: ',sr:0:1);
Writeln(f,'Kol: ',k);
max:=x[1].rost;
min:=x[1].rost;
for i:=2 to n do
 begin
  if x[i].rost>max then
   max:=x[i].rost;
  if x[i].rost<min then
   min:=x[i].rost;
 end;
Writeln(f,'Visoky: ',max);
Writeln(f,'Mlenkiy: ',min);
close(f);
Writeln('Press Enter: ');
Readln;
end.