Кто может исправить код? не php

PROGRAM SBAL;
{*Визначення середнього балу та сортировка*}
TYPE
STR=
RECORD
FAM: ARRAY [15];
B1,B2,B3,B4,B5:2...5;
SB: REAL
END;
VAR
TBL:ARRAY [1..25] OF STR;
Y:STR;
I,J,K,M: INTEGER;
X:READL;
BEGIN /*SBAL*/
{*Введення вихідних даних*}
READLN(M); {*М-число записів у масиві TBL*}
FOR I:=1 To M DO
WITH TBL [I]DO
READLN (FAM)
B1,B2,B3,B4,B5);
{*Обчислення середнього балу*}
FOR I:=1 TO M DO
WITH TBL [I] Do
SB:=(B1+B2+B3+B4+B5)/5;
{*Сортування списку групи студентів*}
FOR I:=1 TO M-1 DO
BEGIN
K:=I;
X:=TBL [I].SB;
FOR J:=1 TO M DO
IF TBL [j].SB>X
THEN BEGIN
K:=J;
X:=TBL [J].SB
END;
Y:=TBL [K];
TBL[K]:=TBL[I];
TBL[I]:=Y
END;
{*Друк результатів*}
FOR I:=1 TO M DO
WITH TBL [I] DO
WRITELN (FAM:15,SB,6:3)
END. {*SBAL*}

это че? Питон? С++? Перл?

lmfao, а хз гг, друг попросил узнать

lmfao, This is Pascal

Это Перл,лично я с ним не дружу,так что помоч не смогу)

MrAK, странно, он сказал паскаль

паскаль вроде) врятли с ним здесь дружат)

Может это паскаль или бэйсик

Паскаль)

Паскаль