ввести из текстового файла данные для массива структур - Pascal ABC - Ответ 745125

program kr1_5;   {название программы}
 
uses
  crt;{подключение модуля для работы с экраном}
 
type
  stroka = string[30];
  tovar = record   {объявление записи}
    ima: string[19];   {название товара}
    izg: string[10];   {имя изготовителя}
    god: integer;   {год выпуска}
    gar: integer;   {гарантия}
    cena: integer;   {цена}
  end;
 
var{объявление переменных}
  tov: text;
  tovtip: file of tovar;
  izgot: string;
  z, i, o, np, vp, j, k: integer;
  st, p, r: array[1..25] of tovar;
  pr: array[1..30] of integer;
  temp: tovar;
  pos1: byte;
  namefilein, namefileout: stroka;
 
begin
  write('Введите имя входного файла');
  readln(namefilein);
  write('Введите имя выходного файла');
  readln(namefileout);
  assign(tov, namefileout);
  reset(tov);
  reset(tovar);
  clrscr;
  writeln('':30, 'Список электротоваров');
  writeln('Наименование товара', '':5, 'Производитель', '':7, 'Год', '':5, 'Гарантия', '':4, 'Цена');
  readln;
  z := 1;
  repeat
    readln(tov, st[z].ima, st[z].izg, st[z].god, st[z].gar, st[z].cena);
    writeln(st[z].ima, '':6, st[z].izg, '':7, st[z].god, '':7, st[z].gar, '':7, st[z].cena);
    write(tovtip, st[z]);
    z := z + 1;
  until eof(tov);
  for i := 1 to z do
  begin
    pos1 := pos('', st[i].izg);
    while pos1 > 0 do
    begin
      delete(st[i].izg, pos1, 1);
      pos1 := pos('', st[i].izg);
    end;
  end;
  writeln('Количество товаров', z);
  readln;
  write('Введите изготовителя:');
  readln(izgot);
  write('Введите нижний предел цены:');
  readln(np);
  write('Введите верхний предел цены:');
  readln(vp);
  writeln(' Отсортированный список:');
  writeln;
  k := 0;
  for i := 1 to z do
    if(st [i].izg = izgot) and (st[i].cena >= np) and (st[i].cena <= vp) and (st[i].god >= 2002) and (st[i].gar >= 12) then
    begin
      k := k + 1;
      r[k] := st[i];
    end;
  for j := 1 to k - 1 do
    for i := j + 1 to k do
      if r[i].ima < r[j].ima then
      begin
        temp := r[i];
        r[i] := r[j];
        r[j] := temp;
      end;
  writeln('Количество найденных товаров', k);
  for i := 1 to k do
    writeln(r[i].ima, '':6, r[i].izg, '':7, r[i].god, '':7, r[i].gar, '':7, r[i].cena);
  readln;
  close(tov);
  close(tovar);
end.