Массив записей посчитать количество. Опции

[swe-4a]

2. Дан массив записей, содержащий сведения о школах города: номер школы, ФИО директора, название школы, число учителей, число учеников. Подсчитать общее количество учителей во всех школах города
Почему выдает результат выдает столько раз, сколько школ введено. Как исправить?
Program Examlpe3;

type Tshklola = record
ns : integer; // Номер школы
im : string; // фио директора
ish : string; // имя школы
k : integer; // кол-во учителей
g : integer; // кол-во учеников
end;
var shklola: array[1..5] of Tshklola;
i,n,s:integer; // s- кол-во учителей всего

begin
write('Введите кол-во школ n,n<5: '); Readln(n);
//Ввод данных
for i:=1 to n do
begin
writeln('shklola ',i);
write('Номер школы : '); readln(shklola[i]. ns);
write('фио директора : '); readln(shklola[i]. im );
write('имя школы : '); readln(shklola[i]. ish );
write('кол-во учителей : '); readln(shklola[i]. k );
write('кол-во учеников : '); readln(shklola[i]. g );

writeln;
end;
for i:=1 to n do
with shklola[i] do begin

s:=0;
s:=n*k;
writeln(' учителей во всех школах= ',s);

end;
END.

[volvo]

Пока не оформишь тему как положено - ответов больше не жди. Надоело.

[swe-4a]

Пока не оформишь тему как положено - ответов больше не жди. Надоело.

Извините пожалуйста, я вчера только зарегистрировалась. Подскажите как правильно оформлять. Не сердитесь на меня. Обучаюсь дистанционно вопросов много, сдать 6 контрольных по 30 программ. А спросить не у кого(. Помогите. Я ведь пытаюсь сама решить, но когда не понимаю просто ступор!