Пожалуйста помогите найти ошибку в коде решения задачи на записи

[GUnt]

дана задача:
В аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости: наименование лекарственного препарата; количество; цена; срок хранения (в месяцах). Выяснить, сколько стоит самый дорогой и самый дешевый препарат: сколько препаратов хранится на складе; какой препарат имеет срок хранения более 3 месяцев; сколько стоят все препараты, хранящиеся на складе.
мой код:
Program SKLAD_LEKARSTV;
type sklad = record
name: string;
kol: integer;
cena:integer;
srok:integer;
end;
const n=3;
var a: array [1..100] of sklad;
s,k, i,y,max,min:integer;
begin
for i:=1 to n do begin
writeln('imya tovara?');
readln(a[i].name);
writeln('kolichestvo na sklade');
readln(a[i].kol);
writeln('tsena tovara?');
readln(a[i].cena);
writeln('srok godnosti tovara?');
readln(a[i].srok);
end;
for i:=1 to n do begin
k:=k+1;
write(k,' ');
writeln('tovar',' ',a[i].name,' ','kolichestvo',' ',a[i].kol,' ','tsena',' ',a[i].cena,' ','srok godnosti',' ',a[i].srok);
end;

for i:=1 to n do begin
y:=3;
if a[i].srok>y then
writeln ('nujniy srok godnosti' , a[i].name ,'kolichestvo', a[i].kol ,'tsena', a[i].cena ,'srok godnosti', a[i].srok);
end;
s:=0;
for i:=1 to n do begin
s:=s+a[i].kol;
end;
writeln ('summa lekarstv na sklade', s);

max:=a[1].cena;
for i:=2 to n do
if a[i].cena>max then

max:=a[i].cena;

writeln ('tovar s maximalnoi tsenoi', a[i].name ,'kolichestvo', a[i].kol ,'tsena', a[i].cena ,'srok godnosti', a[i].srok );

min:=a[1].cena;
for i:=2 to n do
if a[i].cena<min then

min:=a[i].cena;
writeln ('tovar s minimalnoi tsenoi', a[i].name ,'kolichestvo', a[i].kol ,'tsena', a[i].cena ,'srok godnosti', a[i].srok );

readln;
end.

проблема в том что не правильно находятся товары с минимальной и максимальной ценой.Заранее спасибо.

[Викдон]

держи:

Program SKLAD_LEKARSTV;
type sklad = record
 name: string;
 kol: integer;
 cena:integer;
 srok:integer;
end;
const n=3;
var a: array [1..100] of sklad;
s,k, i,y,max,min,nomer:integer;
 begin
   for i:=1 to n do begin
     writeln('imya tovara?');
     readln(a[i].name);
     writeln('kolichestvo na sklade');
     readln(a[i].kol);
     writeln('tsena tovara?');
     readln(a[i].cena);
     writeln('srok godnosti tovara?');
     readln(a[i].srok);
 end;
    for i:=1 to n do begin
      k:=k+1;
      write(k,' ');
      writeln('tovar ',' ',a[i].name,' ','kolichestvo',' ',a[i].kol,' ','tsena',' ',a[i].cena,' ',
      'srok godnosti',' ',a[i].srok);
    end;

   for i:=1 to n do begin
     y:=3;
      if a[i].srok>y then
        writeln ('nujniy srok godnosti ' , a[i].name ,'kolichestvo ', a[i].kol ,'tsena ', a[i].cena ,'srok godnosti ', a[i].srok);
     end;

  s:=0;
  for i:=1 to n do begin
   s:=s+a[i].kol;
  end;
  writeln ('summa lekarstv na sklade ', s);

  nomer:=1;
  max:=a[1].cena;
   for i:=2 to n do
    if a[i].cena>max then
      begin
       max:=a[i].cena;
       nomer:=i;
      end;
  writeln ('tovar s maximalnoi tsenoi ', a[nomer].name ,' kolichestvo ', a[nomer].kol ,' tsena ', a[nomer].cena
  ,' srok godnosti ', a[nomer].srok );

  nomer:=1;
  min:=a[1].cena;
   for i:=2 to n do
    if a[i].cena<min then
     begin
      min:=a[i].cena;
      nomer:=i;
     end;
 writeln ('tovar s minimalnoi tsenoi ', a[nomer].name ,' kolichestvo ', a[nomer].kol
 ,' tsena ', a[nomer].cena ,' srok godnosti ', a[nomer].srok );

readln;
end.

[Викдон]

ОШИБКА-writeln ('tovar s maximalnoi tsenoi', a[i].name ,'kolichestvo', a[i].kol ,'tsena', a[i].cena ,'srok godnosti', a[i].srok ); - здесь просто выводится последний элемент массива))

[GUnt]

спасибо большое Викдон