is1142

Добрый вечер.Я сделал задачу,она работает нормально,но мне нужно сделать файл с которого бы считывались все данные,т.е нужно переделать программу мою для работы с файлом.Очень срочно нужно.Заранее спасибо.

{Поставщик обслуживает n магазинов,в каждый магазин доставляется по одному наименованию товара: название магазина, название товара, количество товара, цена товара, сорт товара.
Определить:
1. какой товар доставлен во все магазины;
2. какой товар доставлен только в один магазин;
3. на какую сумму поставщик доставил товар в данный магазин;
4. в какой мазазин доставлен самый плохой товар;
5. упорядочить магазины по общей стоимости доставленных товаров;
6. сколько товаров высшего качества было доставлено во все магазины}

Program zadacha1;
uses crt;
type mag=record;
nmag:string[10];
ntov:string[10];
kol:byte;
cena:integer;
sort:byte;
end;
mastov=array[1..20] of mag;
var i,j,s,n,c1:integer;
a: mastov;
c:string;
Procedure kolv;
begin
writeln('введи количество магазинов');
readln(n);
end;
Procedure vvod(n1:integer;var b:mastov);
var i:integer;
begin
writeln('введи информацию');
for i:=1 to n1 do
begin
writeln('наименование магазина');
readln(a[i].nmag);
writeln('наименование товара');
readln(a[i].ntov);
writeln('количество товара');
readln(a[i].kol);
writeln('цена товара');
readln(a[i].cena);
writeln('сорт товара');
readln(a[i].sort);
end;
end;
Procedure zdn1(n2:integer; z:mastov; var c1:integer);
var i1:integer;
Begin
c1:=1;
for i1:=2 to n2 do
if z[1].ntov=z[i1].ntov then c1:=c1+1;
if c1=n2 then writeln('этот товар доставлен во все магазины -- ',z[1].ntov)
else writeln ('такого товара нет');
End;
procedure zdn2(n3:integer;x:mastov;var c2:string);
var i2,i3,h,l:integer;
begin
h:=0;
l:=0;
for i2:=1 to n3 do begin
for i3:=1 to n3 do begin
if x[i2].ntov=x[i3].ntov
then inc(h);
end;
if h=1
then begin writeln('товар,который есть только в одном магазине ', x[i2].ntov);
inc(l);
end;

h:=0;
end;
if l=0
then writeln('товара нет');
end;
Procedure zdn3(b:mastov;var k:integer);
begin
k:=b[1].cena*b[1].kol;
writeln('поставщик доставил в данный магазин товары на сумму-- ',k);
end;
Procedure zdn4(n4:integer;var e:mastov);
var i4,max:integer;
begin
max:=e[1].sort;
for i4:=1 to n4 do
begin
if e[i4].sort>max then max:=e[i4].sort;
end;
for i4:=1 to n4 do
if e[i4].sort=max then writeln('самый плохой товар в магазине---',e[i4].nmag);
end;
Procedure zdn5(n5:integer;var h:mastov);
var ks:array[1..10]of integer;
temp:string;
Flag : Boolean;
var i5:integer;
begin
for i5:=1 to n5 do
begin
ks[i5]:=a[i5].cena*a[i5].kol;
end;
for i5:=1 to n5 do
for j:=1 to n5-i do
if ks[j]>ks[j+1] then
begin
repeat
Flag:= False;
for i5:=1 to n5-1 do
if h[i5].nmag<h[i5+1].nmag then begin
Temp:= h[i5].nmag;
h[i5].nmag:=h[i5+1].nmag;
h[i5+1].nmag:=Temp;
Flag:=True;
end;
until Flag = False;
for i5:=1 to N5 do
write(h[i5].nmag,' ');
writeln;
end;
end;

Procedure zdn6(n6:integer;t:mastov;var c6:integer);
var i6:integer;
begin
c6:=0;
for i6:=1 to n6 do
if t[i6].sort=1 then c6:=c6+1;
writeln('общее число товаров высшего сорта доставленных в магазины---',c6);
end;

Begin
clrscr;
kolv;
vvod(n,a);
zdn1(n,a,c1);
kolv;
vvod(n,a);
zdn2(n,a,c);
kolv;
vvod(n,a);
zdn3(a,s);
kolv;
vvod(n,a);
zdn4(n,a);
kolv;
vvod(n,a);
zdn5(n,a);
kolv;
vvod(n,a);
zdn6(n,a,c1);
End.