Из списка заводов данной отрасли напечатать те, у которых размер прибыли больше издержек, а также вывести разницу размера прибыли и издержек.

uses crt;
type book=record
zavod:string[20];
prib:longint;
izd:longint;
end;
var i,n:integer;
a:array[1..10] of book;
Begin clrscr;
write('Количество заводов ');readln(n);
for i:=1 to n do
begin
write('Название завода: ');readln(a[i].zavod);
write('Издержка:           ');readln(a[i].izd);
write('Прибыль:             ');readln(a[i].prib);
end;
writeln('Размер прибыли больше размера издержки у заводов: ');
for i:=1 to n do
if a[i].prib>a[i].izd then writeln(a[i].zavod);
for i:=1 to n do
if a[i].prib>a[i].izd then
writeln('Разница размера прибыли и издержки у завода "',a[i].zavod,'" : ',a[i].prib-a[i].izd);
readln
end.