Напишите пожалуйста задачу в паскале ALGO

Написано и отлажено на FreePascal

program test;
uses
crt;

const
require = 18;

type
arr = array of byte;
fios= array of string;

var
phis, math, russ, eng, tot : arr;
fio : fios;
num: byte;
i, j, k : byte;
st, t : string;
val, key : byte;
p, m, r, f : byte;


begin
write('How many peoples: ');
readln(num);
writeln;
setLength(fio, num);
setLength(phis, num);
setLength(math, num);
setLength(russ, num);
setLength(eng, num);
setLength(tot, num);
for i:=0 to num-1 do
begin
writeln('People ', i+1);
write('F.I.O.: ');
readln(fio[i]);
write('Phis: ');
readln(phis[i]);
write('Math: ');
readln(math[i]);
write('Russ: ');
readln(russ[i]);
write('Eng: ');
readln(eng[i]);
tot[i] := phis[i]+math[i]+russ[i]+eng[i];
writeln;
end;
writeln;

writeln(' V E D O M O S T');
writeln('---------------------------------------------------------------');
writeln('| F. I. O. | Phis | Math | Russ | Eng | Total |');
writeln('---------------------------------------------------------------');
for i:=0 to num-1 do
begin
st := '| ' + fio[i];
j:= length(st);
if j<17 then
for k:=1 to 17-j do st:=st+' ';
st:=st+'|';
str(phis[i], t);
st := st + ' ' + t + ' |';
str(math[i], t);
st := st + ' ' + t + ' |';
str(russ[i], t);
st := st + ' ' + t + ' |';
str(eng[i], t);
st := st + ' ' + t + ' |';
str(tot[i], t);
st := st + ' ' + t + ' |';
writeln(st);
end;
writeln('---------------------------------------------------------------');

for i:=0 to num-1 do
begin
val:=tot[i];
st:=fio[i];
p:=phis[i];
m:=math[i];
r:=russ[i];
f:=eng[i];
key:=i;
for j:=i+1 to num-1 do
if tot[key] if key<>i then
begin
tot[i] := tot[key];
tot[key] := val;
fio[i] := fio[key];
fio[key] := st;
phis[i] := phis[key];
phis[key] := p;
math[i] := math[key];
math[key] := m;
russ[i] := russ[key];
russ[key] := r;
eng[i] := eng[key];
eng[key] := f;
end;
end;

writeln;

writeln(' Sorted vedomost by total balls');
writeln('---------------------------------------------------------------');
writeln('| F. I. O. | Phis | Math | Russ | Eng | Total |');
writeln('---------------------------------------------------------------');
for i:=0 to num-1 do
begin
st := '| ' + fio[i];
j:= length(st);
if j<17 then
for k:=1 to 17-j do st:=st+' ';
st:=st+'|';
str(phis[i], t);
st := st + ' ' + t + ' |';
str(math[i], t);
st := st + ' ' + t + ' |';
str(russ[i], t);
st := st + ' ' + t + ' |';
str(eng[i], t);
st := st + ' ' + t + ' |';
str(tot[i], t);
st := st + ' ' + t + ' |';
writeln(st);
end;
writeln('---------------------------------------------------------------');

writeln;
writeln(' Spisok postupifshih studentov');
writeln('---------------------------');
writeln('| F. I. O. | Total |');
writeln('---------------------------');
for i:=0 to num-1 do
begin
if tot[i] >= require then
begin
st := '| ' + fio[i];
j:= length(st);
if j<17 then
for k:=1 to 17-j do st:=st+' ';
st:=st+'|';
str(tot[i], t);
st := st + ' ' + t + ' |';
writeln(st);
writeln('---------------------------');
end;
end;
end.