Program a14_18;
uses crt;
const n=2;
type Pupil=Record
  name:string[10];
  kind:integer;
  nomer:integer;
  end;
var i,j:integer;
      f:text; t1,t2:string;
      a:array[1..n] of pupil;
BEGIN
clrscr;
assign(f,'c:\spisok.txt');
rewrite(f);
for i:=1 to n do
  with a[i] do
    begin
      write('Введите номер учебного заведения ');
      readln(a[i].nomer);
      t1:=' Номер учебного заведения ';
      write(f,t1);
      str(i,t1);
      t1:=t1+' ';
      write(f,t1);
      write('Введите тип учебного заведения ');
      readln(a[i].name);
      t1:=' Тип учебного заведения ';
      write(f,t1);
      t1:=a[i].name;
      write(f,t1);
      write('Введите к-во человек ');
      readln(a[i].kind);
      t1:=' К-во человек ';
      write(f,t1);
      str(a[i].kind,t1);
      write(f,t1);
      writeln(f);
    end;
j:=0;
for i:=1 to n do
  if a[i].name='школа' then
    j:=j+a[i].kind;
    writeln;
    writeln('К-во учащихся школ равно ',j:2);
    t1:='К-во учащихся школ равно ';
    writeln(f);
    write(f,t1);
    str(j,t1);
    write(f,t1);
close(f);
readln;
END.