Напишите программу, подсчитывающую общее количество человек во всех 11 классах ( как она будет записываться в паскале)

Program klas;
uses crt;
var
n,p,i,r:integer;

begin
writeln('Kolichestvo 11 klassov :');
read(n);
for i:=1 to n do
begin
writeln('Vvedite kol-vo chelovek v ',i);
read(p);
r:=r+p;
end;
Writeln('Vsego v ',n,' klassah ',r,' chelovek');
end.