Создать массив (тип запись)

type apparats = record//Согласно условию - работа с записью
    Code: string;
    Name: string;
    Haracteristica: string;
    SrokExp: string;
    NomerCexa: string;
    NomerAmortizacii: string;
end;
 
const N = 100;//Максимальная длина массива
const MaxSrokExpluotacii = 3;//Срок эксплуaтации оборудования
 
var Info: array[1..N] of apparats;//Массив на основе записи
    a,b: integer;
    s: string;
    count: integer;
 
begin
  writeln('Загрузка информации об оборудовании');
  writeln('Сколько всего оборудований? ');
  readln(a);
  count:= a;
  writeln('Информационная структура: код оборудования, наименование оборудования, характеристика, срок эксплуатации(цифра и пробел в начале - обязательны на первой позиции!!!), № цеха, норма амортизации.');
  {!!!!!!!!!!!!!!!!!!!Срок экспуатации имеет формат: 1 год, 2 года и.т.д.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
  writeln();
   for i: integer:= 1 to a do 
    begin
      writeln('Данные оборудования номер ', i);
      write('Код оборудования: ');
      readln(Info[i].Code);
      writeln();
      write('Наименование оборудования: ');
      readln(Info[i].Name);
      writeln();
      write('Характеристика: ');
      readln(Info[i].Haracteristica);
      writeln();
      write('Срок эксплуатации: ');
      readln(Info[i].SrokExp);
      writeln();
      write('Номер цеха: ');
      readln(Info[i].NomerCexa);
      writeln();
      write('Норма амортизации: ');
      readln(Info[i].NomerAmortizacii);
      writeln('=========================');
    end;
    writeln();
    
  writeln('Общий список оборудования: ');
  writeln();
  
  for i: integer:= 1 to a do begin writeln('Код оборудования: '+Info[i].Code+ ' Наименование оборудования: ' +Info[i].Name+ ' Характеристика: ' +Info[i].Haracteristica+ ' Cрок эксплуатации: ' +Info[i].SrokExp+ ' Номер цеха: ' +Info[i].NomerCexa+ ' Норма амортизации ' +Info[i].NomerAmortizacii);
    writeln();
  end;
  writeln('Доступные функции: ' +#13+ '1. Изменение № цеха у оборудования по заданному коду оборудования.' +#13+ '2. Список оборудования, у которого вышел срок эксплуатации');
  readln(b);
case b of
1: begin
  writeln();
  writeln('===========Изменение № цеха у оборудования по заданному коду оборудования=============');
  writeln();
  write('Введите код оборудования: ');
  readln(a);
  writeln('Код оборудования номер ',a, '. Номер цеха: ', Info[a].NomerCexa);
  writeln();
  write('Введите новый номер цеха: ');
  readln(Info[a].NomerCexa);
  writeln('========Изменения сохранены=========');
end;
2: begin
  writeln();
  writeln('===========Список оборудования, у которого вышел срок эксплуатации=============');
  writeln();
  writeln('Оборудование по текущим данным может эксплуотироваться ', MaxSrokExpluotacii, ' года. Параметр может редактироваться');
  writeln('Поиск подобного оборудования...');
  writeln();
    for i: integer:= 1 to count do if StrToInt(Copy(Info[i].SrokExp,1,pos(' ', Info[i].SrokExp))) > MaxSrokExpluotacii then writeln('Код оборудования: '+Info[i].Code+ ' Наименование оборудования: ' +Info[i].Name+ ' Характеристика: ' +Info[i].Haracteristica+ ' Cрок эксплуатации: ' +Info[i].SrokExp+ ' Номер цеха: ' +Info[i].NomerCexa+ ' Норма амортизации ' +Info[i].NomerAmortizacii);
  writeln();
  writeln('Данное оборудование требует замены!');
end;
end;
end.