Составьте прайс-лист магазина "Обувь"

uses crt;
const nmax=20;
      line='------------------------------------------------------------------------------';
      shap='|  Наименование   |   Страна   |   Цена   |  Материал  | Размер |Рекомеднации|';
 
 
type obuv = record
     nam:  string[15];
     con:  string[10];
     zen:  real;
     mat:  string[10];
     raz:  byte;
     rek:  string[10];
     end;
     mas=array [1..nmax] of obuv;
 
var  o:mas;
     n,r:byte;
 
procedure Vvod(var r: byte; var oo: mas);
var i: byte;
begin
clrscr;
write('Количество наименований в БД, не более ',nmax,' n=');
readln(r);
writeln('Внесите данные о товаре: ');
for i:=1 to r do
    with oo[i] do
         begin
         write('Наименование товара: '); readln(nam);
         write('Страна-производитель: '); readln(con);
         write('Цена: '); readln(zen);
         write('Материал изготовления: '); readln(mat);
         write('Размер: '); readln(raz);
         write('Рекомендации для использования: '); readln(rek);
         end;
writeln('Данные занесены');
writeln('Нажмите Enter чтобы продолжить');
readln;
end;
 
procedure Vyvod(r: byte; oo: mas);
var i: byte;
begin
clrscr;
writeln(line);
writeln(shap);
writeln(line);
for i:=1 to r do
    with oo[i] do
         begin
         writeln('|',nam:16,'|':2,con:11,'|':2,zen:9:2,'|':2,mat:11,'|':2,raz:5,'|':4,rek:11,'|':2);
         writeln(line);
         end;
writeln('');
writeln('Нажмите Enter чтобы продолжить');
readln;
end;
 
procedure VyvodF(r: byte; oo: mas);
var i,k: byte;
    z: string;
    q: byte;
begin
clrscr;
k:=0;
write('Укажите наименование товара для поиска: '); readln(z);
write('Укажите размер для поиска: '); readln(q);
for i:=1 to r do
    with oo[i] do
         if (z=nam) and (q=raz) then
            begin
            inc(k);
            if k=1 then
               begin
               writeln(line);
               writeln(shap);
               writeln(line);
               end;
            writeln('|',nam:16,'|':2,con:11,'|':2,zen:9:2,'|':2,mat:11,'|':2,raz:5,'|':4,rek:11,'|':2);
            writeln(line);
            end;
if k=0 then writeln('Тавара с заданными параметрами не обнаружено');
writeln('');
writeln('Нажмите Enter чтобы продолжить');
readln;
end;
 
begin
r:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод прайс-листа');
writeln('3-вывод прайс-листа по запросу (наименование и размер)');
readln(r);
case r of
     1: Vvod(n,o);
     2: Vyvod(n,o);
     3: VyvodF(n,o);
     else r:=0;
     end;
until r=0;
end.