Описать сведения об аптеках

uses crt;
type Tsclad=record {тип запись с полями по условию]
                 nam:string[20];
                 kol:word;
                 cen:word;
                 srh:byte;
                 end;
var sp:array[1..100]of Tsclad; {массив записей-список лекарств}
n,i,min,max:word; {счетчики, макс, мин}
kl,sum:longint; {количество, сумма}
ch:char; {символ окончания ввода данных}
begin
clrscr;
n:=0;
repeat
n:=n+1;
writeln('Preparat ',n); {вводим данные в список}
write('Naimenovanie: ');readln(sp[n].nam);
write('Kolichestvo: ');readln(sp[n].kol);
write('Cena: ');readln(sp[n].cen);
write('Srok hranenja: ');readln(sp[n].srh);{два раза Enter, если продолжить}
ch:=readkey;
until ch=#27; {Esc. если закончить}
min:=sp[1].cen;max:=sp[1].cen; {находим макс и мин}
for i:=2 to n do
      begin
        if sp[i].cen<min then min:=sp[i].cen
        else if sp[i].cen>max then max:=sp[i].cen;
      end;
clrscr;
writeln('Samyj dorogoj preparat stoit ',max,' rub');
writeln('Samyj deshovyj preparat stoit ',min,' rub');
writeln;
kl:=0;
for i:=1 to n do //общее количество препаратов
kl:=kl+sp[i].kol;
writeln('Vsego hranitsja ',kl,' prep');
writeln;
writeln('Preparaty so srokom hranenia > 3 mes:');
for i:=1 to n do
if sp[i].srh>3 then {больше 3 месяцев}
writeln(sp[i].nam);
writeln;
sum:=0;
for i:=1 to n do
sum:=sum+sp[i].cen*sp[i].kol; {/общая стоимость}
writeln('Vse preparaty stojat ',sum,' rub');
readln
end.