Составить программу, которая будет содержать название магазина и товары со своими свойствами

program mykyrs;
uses
  crt;
type
  magazin = record
    nazv_mag: string[10];
    tov: record
      material: string[10];
      mebel: string[50];
    end;
  end;
  zapis = array[1..10] of magazin;
 
var
  b: char;
  i, j: integer;
  name: zapis;
 
procedure add( var name: zapis; var i, j: integer );
var 
  k,kol: byte;
begin
  inc(i);  
  write(' Введите название магазина: ');
  readln(name[i].nazv_mag);
  writeln(' Введите количество товаров в магазине ');
  readln(kol);
  for j := 1 to kol do
  begin
    write(' Введите название предмета мебели: ');
    readln(name[i].tov.mebel[j]);  
    write(' Введите материал предмета: ');
    readln(name[i].tov.material[j]);
  end;
end;
 
 
procedure vivod(name: zapis; i, j: integer );
 
var
  k, m: integer;
begin
  clrscr;
  if i <> 0 then
    for k := 1 to i do
      for m := 1 to j do
        writeln('| ', name[i].nazv_mag, ' | ', name[i].tov.mebel[j], ' | ', name[i].tov.material[j], ' | ')
  else
  begin
    writeln;
    writeln(' Еще не было введено ни каких данных! ');
  end;
  writeln;
  writeln(' Вывод окончен, нажмите Enter для перехода к меню ');
  readln; 
end;
 
begin
  b := '0';
  i := 0;
  j := 0;
  while b <> '3' do
  begin
    clrscr;
    writeln;
    writeln(' 1 ввод данных о магазине ');
    writeln(' 2 показать ');
    writeln(' 3 выход ');
    readln(b);
    case b of 
      '1': add(fail, name, i, j);
      '2': vivod(name, i, j);
      '3': 
          exit;
    else 
      begin
        writeln(' Такого пункта нет в меню, повторите ввод ');
        readln;
      end;
    end;
  end;
end.

program mykyrs;
 
uses
  crt;
 
type
  magazin = record
    nazv_mag: string[10];
    tov:  record
      material,: string[10];
      mebel: string[50];
    end;
  end;
  zapis = array[1..10] of magazin;
var
  fail: text;
  b: char;
  i: integer;
  name: zapis;
 
procedure add(var fail: text; var name : zapis; var i: integer );
var
  j: integer;
  k: byte;
begin
  clrscr;
  inc(i);  
  with name[i] do
  begin
    write(' Введите название магазина: ');
    readln(nazv_mag);
    repeat
    inc(j);
    with name[i].tov[j] do
      begin
          write(' Введите название предмета мебели: ');
          readln(mebel);     
          write(' Введите фирму изготовитель для данного предмета: ');
          readln(firma);
          write(' Введите материал предмета: ');
          readln(material);
          write(' Введите цену данного товара в рублях: ');
          readln(chena);
        end;
        write(' Желаете ввести еще один предмет мебели для данного магазина? 1(да)/0(нет): ');
        readln(k);
      until k <> 1;
    end; 
  end;
 
procedure vivod(name: zapis; i: integer );
 
var
  k: integer;
begin
  clrscr;
  writeln(' Производится вывод следующих данных: ');
  if i <> 0 then
    for k := 1 to i do
      writeln('| ', name[i].nazv_mag, ' | ':, name[i].tov , ' | ')
  else
  begin
    writeln;
    writeln(' Еще не было введено ни каких данных! ');
  end;
  writeln;
  writeln(' Вывод окончен, нажмите Enter для перехода к меню ');
  readln; 
end;
 
begin
  b := '0';
  assign(fail, 'файл с веденными данными.txt');
  rewrite(fail);
  while b <> '7' do
  begin
    clrscr;
    writeln;
    writeln(' 1 ввод данных о магазине ');
    writeln(' 2 показать ');
    writeln(' 7 выход из программы');
    readln(b);
    case b of 
      '1': add(fail, name,i);
      '2': vivod(name, i);
      '7': 
        begin
          close(fail);
          exit;
        end;
    else 
      begin
        writeln(' Такого пункта нет в меню, повторите ввод ');
        readln;
      end;
    end;
  end;
end.