Тип запись. Редактировать.

program wtf;
uses crt;
type foobar=record
p:string[3];
tk,r,k:real;
end;
var a:array [1..11] of foobar;
i,j,d,m:integer;
z:real;
input:text;
s:string;
y:string[45];
begin
clrscr;
y:='*****************************************';
assign(input,'input.txt');
reset(input);
writeln('Исходные данные');
for i:=1 to 11 do
with a[i] do begin
readln(input,p,tk,r);
k:=r;
end;
writeln(y);
writeln('Наименование*Объем*Расход топлива*');
writeln(y);
for i:=1 to 11 do
with a[i] do begin
writeln('*',p:10,'*',tk:14:1,'*',r:14:1,'*');
writeln('**********************************');
end;
readln;
writeln;
readln;
Z:=0;
readln;
for i:=1 to 11 do z:=z+a[i].k;
z:=z/11;
M:=1;
writeln('**********************************');
writeln('*Наименование*Отношение больше среднего*');
writeln('**********************************');
for i:=1 to 11 do begin
if a[m].k>a[i].k then M:=i;
if a[i].k>z then begin with a[i] do
writeln('*',p:26,'* +                *');
writeln('**********************************');
end;
end;
writeln('Предприятие с минимальным коэффицентом ',a[m].p);
close(input)l
readln;
end.