Напечатать список автопредприятий, не выполнивших план грузооборота более чем на 10% - Turbo Pascal - Ответ 1415433

uses crt;
type tv=record
        sch:string[20];
        pgo:integer;
        rgo:integer;
       end;
  mas=array [1..100] of tv;
 var
buf:mas;
ch:char;
i,n:integer;
procedure vv(var buf:mas;var n:integer);
var c:char;
i:integer;
begin
i:=1;
while c<>'n' do
begin
  n:=i;
 clrscr;
 write('schifr predpriatia :      ');
 readln(buf[i].sch);
 write('planoviy gruzooborot:     ');
 readln(buf[i].pgo);
 write('realniy gruzoooborot:     ');
 readln(buf[i].rgo);
 write('prodolgit? y/n: ');
 inc(i);
 c:=readkey;
  end;
end;
 
procedure sort(buf:mas;n,i:integer);
var j2,m,j,k:byte;
min:integer;
begin
min:=buf[1].rgo;
clrscr;
i:=1;
writeln('OTSTAVSCHIE BOLEE TCHEM NA 10%');
writeln;
repeat
if (buf[i].pgo-buf[i].pgo*0.1)>buf[i].rgo then
 begin
 writeln('schifr predpriatia:    ',buf[i].sch);
 writeln('planoviy gruzoooborot: ',buf[i].pgo);
 writeln('realniy gruzooborot:   ',buf[i].rgo);
 writeln;
 end;
inc(i);
until i>n;
readln;
end;
 
procedure mini(buf:mas;n,i:integer);
var min,j2:integer;
begin
min:=buf[1].rgo;
for i:=1 to n do
if buf[i].rgo<min then
begin
min:=buf[i].rgo;
j2:=i;
end;
clrscr;
writeln('predpriatie s samim malenkim GO');
writeln;
writeln('schifr :     ',buf[j2].sch);
writeln('planoviy GO: ',buf[j2].pgo);
writeln('realniy GO:  ',buf[j2].rgo);
readln;
end;
 
BEGIN
while ch<>'4' do
begin
clrscr;
gotoxy(30,9); writeln('=======================');
gotoxy(30,10);writeln('| 1:vvod dannih       |');
gotoxy(30,11);writeln('| 2:vivisti spisiok   |');
gotoxy(30,12);writeln('| 3:samiy malenkiq GO |');
gotoxy(30,13);writeln('| 4:vihod             |');
gotoxy(30,14);writeln('=======================');
gotoxy(5,22);write('vvedite nomer puncta menu: ');
ch:=readkey;
case ch of
'1':vv(buf,n);
'2':sort(buf,n,i);
'3':mini(buf,n,i);
end;
end;
END.