таблица на записи..

[darika]

нужно составить таблицу...с 8 выборками. 5 я уже сделала.Таблица о отчете компьюторного магазина. помогите сосчитать сумму всех товаров.. и можно по алфавиту вывести товар?


Program Pr82;
uses crt;
type Magaz=record
tov,proi:string[10];
kol:0..1000;
many:200..50000;
zakyp:100..35000;
skidki:3..20;
garan:1..5;
end;
var x:array[1..12] of Magaz;
i,m:word; sum:real;
f:file of Magaz;
Begin
{textbackground(0);clrscr;
window(2,1,79,24);textbackground(7) ;textcolor(14); clrscr; window(25,1,77,6);textbackground(3) ;textcolor(14);clrscr;
window(26,2,76,5);textbackground(4) ;textcolor(14); clrscr; writeln ( ' JIa6opaTOpHan pa6oTa N" 7 ');
window(5,4,74,23);textbackground(3) ;textcolor(14);clrscr; window(6,5,73,22);textbackground(4) ;textcolor(14);clrscr; }
clrscr;
assign(f,'C:\Users\Darika\Desktop\A ll.txt');
m:=12;
rewrite(f);
with x[1] do begin
tov:='копм';proi:='россия';kol:=150 ; many:=200;
skidki:=3 ;garan:=3;
end;
with x[2] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:= 3;garan:=3; end;
with x[3] do begin
tov:='копм';proi:='росиия';kol:=150 ;many:=200;
skidki:= 3;garan:=3; end;
with x[4] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:= 3;garan:=3; end;
with x[5] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:=3;garan:=3; end;
with x[6] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:=3 ;garan:=3; end;
with x[7] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:=3 ;garan:=3; end;
with x[8] do begin
tov:='копм';proi:='россия';kol:=150 ;many:=200;
skidki:=3 ;garan:=3; end;
with x[9] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:=3 ;garan:=3; end;
with x[10] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:= 3 ;garan:=3;end;
with x[11] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:=3 ;garan:=3; end;
with x[12] do begin
tov:='комп';proi:='россия';kol:=150 ;many:=200;
skidki:= 3 ;garan:=3; end;
for i:=1 to m do write(f,x[i]);
close(f);reset(f);
writeln(' Список');
writeln('+-----------------------------------------------------------------------+');
writeln('|Товар |производитель| количество| цена |скидки |гарантия |');
write('+--------------------------------------------------------------------------+');
for i:=1 to m do read(f,x[i]);
for i:=1 to m do with x[i] do
writeln(' |',tov:10,'|',proi:10,'|', kol:6,'|',many:10,'|',zakyp:10,'|', skidki:7,'|',garan:7,'|');
writeln('+--------------------------------------------------------------------+');
close(f);
readln;
write(' больше 20000');
writeln('+-------------------------------------------------------------------------+');
writeln(' |Товар |производитель| цена| ');
writeln('+--------------------------------------------------------------------------+');
for i:=1 to m do with x[i] do begin
if many > 2000 then
writeln('|',tov:10,'|',proi:10,'|', many:10,'|'); end;
writeln('+------------------------------------------------------------------------+');
close(f);
readkey;
write;
reset(f);
writeln;
writeln('гарантия меньше года');
writeln('+--------------------------------------------------------------------------+');
writeln(' |Товар |производитель| цена| Гарантия|');
write('+--------------------------------------------------------------------------+');
for i:=1 to m do with x[i] do begin
if garan < 3 then
writeln('|',tov:10,'|',proi:10,'|', many:10,'|',garan:7,'|');end;
writeln('+--------------------------------------------------------------------------+');
close(f);
write(' Страна производителя Германия');
writeln('+-------------------------------------------------------------------------+');
writeln(' |Товар |производитель| цена| ');
writeln('+--------------------------------------------------------------------------+');
for i:=1 to m do with x[i] do begin
if proi='Германия' then
writeln('|',tov:10,'|',proi:10,'|', many:10,'|'); end;
writeln('+------------------------------------------------------------------------+');
close(f);
write(' с А');
writeln('+-------------------------------------------------------------------------+');
writeln(' |Товар |производитель| цена| ');
writeln('+--------------------------------------------------------------------------+');
for i:=1 to m do with x[i] do
if copy(proi,2,1)='A' then
writeln('|',tov:10,'|',proi:10,'|', many:10,'|');
writeln('+------------------------------------------------------------------------+');
close(f);


readkey;
End.