Алгоритм по PASCAL-коду

uses crt;
const n=10;
var s:array[1..n] of string[6];
    r:array[1..n] of longint;
    p:array[1..n] of longint;
    pr:array[1..n] of real;
    prem:longint;
    i,k:byte;
    sp,d:real;
begin
clrscr;
writeln('Введите данные о СМУ:');
for i:=1 to n do
 begin
  writeln('СМУ ',i);
  write(' шифр: ');readln(s[i]);
  write(' объем выполненных работ: ');readln(r[i]);
  write(' плановый объем работ: ');readln(p[i]);
 end;
clrscr;
write('Премиальный фонд: ');readln(prem);
sp:=0;
for i:=1 to n do
 begin
  if r[i]>p[i] then pr[i]:=(r[i]-p[i])/p[i]
  else pr[i]:=0;
  sp:=sp+pr[i];
 end;
d:=prem/sp;
writeln('Распределение премиального фонда:');
writeln('--------------------------------------------');
writeln('|  Шифр  | Выполнено |   План   |  Премия  |');
writeln('--------------------------------------------');
for i:=1 to n do
 begin
  gotoXY(1,whereY);write('| ',s[i]);
  gotoXY(10,whereY);write('| ',r[i]:7);
  gotoXY(22,whereY);write('| ',p[i]:5);
  gotoXY(33,whereY);
  if pr[i]=0 then write('|    нет')
  else write('| ',round(pr[i]*d):7);
  gotoXY(44,whereY);writeln('|');
 end;
writeln('--------------------------------------------');
write('Итого:');
gotoXY(33,whereY);
write(prem:9);
readln
end.