Переведите на PaSCAL, ПОЖАЛУЙСТА

Const TMax=10;
Pmax='J';
fn='input.txt';
fn2='output.txt';
var T:integer;{количество команд}
P:integer;{количество задач}
S:Integer;
Ball:Array['A'..Pmax] of integer;{оценки за задачи}
Total:Array[1..3,1..TMax] of Integer;
f:text;
buf:string;
e,i,nc:integer;
ec,bc:char;
Pc:char;
fl:boolean;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Assign(f,fn);Reset(f);
{считываем Т и Р}
readln(f,buf);
val(copy(buf,1,pos(' ',buf)-1),T,e);
delete(buf,1,pos(' ',buf));
val(buf,P,e);
readln(f,buf);
{считываем баллы}
Pc:=chr(ord('A')+p-1);
for ec:='A' to Pc do begin
if pos(' ',buf)0 then begin
val(copy(buf,1,pos(' ',buf)-1),Ball[ec],e);
delete(buf,1,pos(' ',buf)); end
else val(buf,ball[ec],e);
end;
{считываем S}
readln(f,buf);
val(buf,s,e);
for i:=1 to T do begin
Total[1,i]:=i;
Total[2,i]:=0;
Total[3,i]:=0;
end;
{считываем итоговую таблицу}
for i:=1 to s do
begin
Readln(f,buf);
val(copy(buf,1,pos(' ',buf)-1),nc,e);
delete(buf,1,pos(' ',buf));
ec:=copy(buf,1,pos(' ',buf)-1)[1];
delete(buf,1,pos(' ',buf));
bc:=buf[1];
if bc='A' then
Total[2,nc]:= Total[2,nc]+Ball[ec];
Total[3,nc]:=Total[3,nc]+1;
end;
close(f);
{Сортировка Итогов}
fl:=true;
while fl do begin
fl:=false;
for i:=1 to T-1 do
{баллы по убыванию,при равенстве баллов количетво попыток по возрастанию}
if (Total[2,i]Total[3,i+1])) then
begin
for nc := 1 to 3 do begin
e:=Total[nc,i];
Total[nc,i]:=Total[nc,i+1];
Total[nc,i+1]:=e; end;
fl:=true;
end;
end;
Assign(f,fn2);Rewrite(f);
for e:=1 to T do
writeln(f,Total[1,e],' ',Total[2,e]);
close(f);
end.