помогите перевести с языка pascal на php [требует правки]

var рс:array[1..12] of integer;
р : 1. .12;
class:string[3];
с:char;
max, i, N:integer;
begin readln(N) ;
for i:=1 to 12 do
pc[i]:=0;
for i:=l to N do
begin
repeat
read(c)
until c=' '; {считана фамилия}
repeat
read(c)
until c=' '; {считано имя}
readln(class);
{определяем номер параллели}
if length(class)=2 then
p:=ord(class[1])-ord(10') else
p:=(ord(class[1])-ord('0'))*10+
ord(class[2])-ord('0');
pc[p]:=pc[p]+1;{учитываем ученика этой параллели}
end;
max:=0;
for i:=1 to 12 do
if pc[i]>max then max:=pc[i];
writeln('Максимум учеников в параллели:',max);
for i:=1 to 12 do
if pc[i]=max then
write(i,' ');
readln
end.