Здравствуйте, HelenaBC!
Решение задачи с пояснениями в приложении. Вместо пробелов поставил подчеркивание, а то при перепечатке их не видно.

Приложение:
uses crt;type TPredp=record {тип запись с полями по условию} name:string; pl:word; {план} fk:word; {факт} proc:real; {процент} end;var sp:array[1..50]of TPredp; {массив записей-список предприятий} n,i,j,k,max:word; {разные переменные} bf:TPredp; {буфер при сортировке}beginclrscr;write(‘Vvedite kolichestvo predprijatij n=‘);readln(n);for i:=1 to n do {заполняем список} begin writeln(‘Predprijatie_‘,i); write(‘Nazvanie:_‘);readln(sp[i].name); write(‘Plan_‘);readln(sp[i].fk); sp[i].proc:=sp[i].fk/sp[i].pl*100; end;clrscr;writeln(‘Procent vypolnenja plana:‘);for i:=1 to n dowriteln(sp[i].name,sp[i].proc:6:1,‘%‘);writeln;k:=0;for i:=1 to n doif sp[i].fk<sp[i].pl then begin k:=k+1; end;writeln(‘Ne vypolnili plan_‘,k,‘_predprijat‘);writeln;max:=sp[1].pl;for i:=2 to n doif sp[i].pl>max then max:=sp[i].pl;writeln(‘Naibolshij plan=‘,max);writeln;for i:=1 to n-1 do {сортировка по возрастанию пузырьком}for j:=1 to n-i doif sp[j].pl>sp[j+1].pl then {по полю план} begin bf:=sp[j]; sp[j]:=sp[j+1]; {сортируем все записи полностью} sp[j+1]:=bf; end;writeln(‘Spisok predprijatij po vozrastaniu plana:‘);writeln;for i:=1 to n dowriteln(sp[i].name,‘__Plan_‘,sp[i].pl,‘__Fakt_‘,sp[i].fk,‘__Procent‘,sp[i].proc:6:1);readlnend.