Проверьте программу и блок-схему.

program zad3;
uses crt;
type zap=record
     strana:string[50];
     kat:byte;
     kol:integer;
     end;
     zap1=record
     kat1:string[15];
     kol1:integer;
     proc:real;
     end;
var
     tab:array[1..3] of zap1;
     spis:array[1..15] of zap;
     z,f,j,n,i:byte;
     m:zap;
     o:boolean;
     t:zap;
     p:real;
 
begin
textcolor(white);
clrscr;
for i:=1 to 3 do
tab[i].kol1:=0;
writeln('Vvedite kol-vo marshrytov');
readln(n);
for i:=1 to n do begin
writeln('Vvedite ',i,' strany poezdki');
readln(spis[i].strana);
writeln('Vvedite kol-vo zvezd');
readln(spis[i].kat);
writeln('Vvedite kol-vo pytevok');
readln(spis[i].kol);
clrscr;
end;
 writeln('┌───────────────────┬─────────────────┬────────────────────────┐');
 writeln('│      Strana       │    Kategoriya   │      Kolichestvo       │');
 writeln('│      poezdki      │    gostinici    │        pytevok         │');
 writeln('├───────────────────┼─────────────────┼────────────────────────┤');
for i:=1 to n do begin
write('│',spis[i].strana:12,'       ');
write('│',spis[i].kat:12,'     │');
write(spis[i].kol:12,'            │');
writeln;
end;
 writeln('└───────────────────┴─────────────────┴────────────────────────┘');
writeln('Grypirovka po kategori');
 writeln('┌───────────────────┬─────────────────┬────────────────────────┐');
 writeln('│      Strana       │    Kategoriya   │      Kolichestvo       │');
 writeln('│      poezdki      │    gostinici    │        pytevok         │');
 writeln('├───────────────────┼─────────────────┼────────────────────────┤');
 j:=1;
 repeat
 i:=1;
 repeat
  if spis[i].kat>spis[i+1].kat then begin
                                    m:=spis[i];
                                    spis[i]:=spis[i+1];
                                    spis[i+1]:=m;
                                    f:=1
                                    end;
                                    i:=i+1;
                                    until i>n-j;
                                    j:=j+1;
                                    o:=(j<=n-1) and (f=1)
                                    until o=false;
                                for i:=1 to n do
                                    begin
                                    write('│',spis[i].strana:12,'       ');
                                    write('│',spis[i].kat:12,'     │');
                                    write(spis[i].kol:12,'            │');
                                    writeln;
                                    end;
writeln('└───────────────────┴─────────────────┴────────────────────────┘');
 
writeln('Super shtyka');
for i:=1 to n do begin
                 if spis[i].kat=3
                 then tab[1].kol1:=tab[1].kol1+spis[i].kol;
                  if spis[i].kat=4
                 then tab[2].kol1:=tab[2].kol1+spis[i].kol;
                  if spis[i].kat=5
                 then tab[3].kol1:=tab[3].kol1+spis[i].kol;
                 end;
p:=tab[1].kol1+tab[2].kol1+tab[3].kol1;
tab[1].proc:=(tab[1].kol1)/p*100;
tab[2].proc:=(tab[2].kol1)/p*100;
tab[3].proc:=(tab[3].kol1)/p*100;
 writeln('┌───────────────────┬─────────────────┬────────────────────────┐');
 writeln('│    Kolichistvo    │    Kolichestvo  │      %  ot obshego     │');
 writeln('│       zvezd       │      pytevok    │       Kolichestva      │');
 writeln('├───────────────────┼─────────────────┼────────────────────────┤');
 for i:=1 to 3 do
               begin
               z:=i+2;
               write('│        ',z,'*','         ');
               write('│',tab[i].kol1:12,'     │');
               write(tab[i].proc:12:1,'%''          │');
               writeln;
               end;
 writeln('└───────────────────┴─────────────────┴────────────────────────┘');
readkey;
end.