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.