Массив записей. Определить суммарную стоимость товара, находящегося на складе

Type Tovar=Record
     Name:string[20];
     Zena,Kol:integer;
     End;
Var f:file of Tovar;
    s:Tovar;
    n,i,sum:integer;
Begin
    Assign(f,'mystore.dat');Rewrite(f);
    write('Введите кол-во товара: ');readln(n);
    sum:=0;
    For i:=1 to n do
     Begin
      writeln('Данные о [',i,']-ом товаре');
      write('Введите наименование товара: ');readln(s.name);
      write('Введите цену товара: ');readln(s.zena);
      write('Введите кол-во товара: ');readln(s.kol);
      write(f,s);
     End;
    Reset(f);
    While not Eof(f) do
     Begin
      read(f,s);
      sum:=sum+(s.Zena*s.Kol);
     End;
    Close(f);
    writeln('Сумма=',sum);
End.

Var A:array[1..100,1..100] of integer;
    i,j,k,m,n,t,max,imax:integer;
Begin
    Write('Введите кол-во строк: ');readln(n);
    Write('Введите кол-во столбцов: ');readln(m);
    max:=0;imax:=0;
    For i:=1 to n do
     Begin
      k:=0;
      For j:=1 to m do
       Begin
        A[i,j]:=Random(6)-3;
        write(A[i,j]:3);
        if A[i,j] in [-2,2] then inc(k);
       End;
      writeln;
      if k>max then 
       Begin
        max:=k;
        imax:=i;
       End;
     End;
    writeln('Максимальное кол-во элементов из промежутка [-2,2] = ',max,' находится в ',imax,' строке');
    For j:=1 to m do
     Begin
      t:=A[1,j];
      A[1,j]:=A[imax,j];
      A[imax,j]:=t;
     End;
    For i:=1 to n do
     Begin
      For j:=1 to m do
       write(A[i,j]:3);
      writeln;
     End;
    readln;
End.