Создать файл, содержащий сведения о товарах в магазине - Pascal ABC - Ответ 10227087

type shop=record
  name,manuf,year,guar,price:string;
end;
mas=array [1..100] of shop;
 
procedure sort(var s:mas; n:integer);//упорядочивание по алфавиту
var c:shop;
    i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n-1 do
      if s[j].name[1]>s[j+1].name[1] then begin
        c:=s[j];
        s[j]:=s[j+1];
        s[j+1]:= c;
      end;
end;
 
procedure convert(var s:mas; v:string; i:integer);//разбиение строки на элементы
  begin
    with s[i] do begin
      name:=copy(v,1,pos(' ',v)-1); delete(v,1,pos(' ',v));
      manuf:=copy(v,1,pos(' ',v)-1); delete(v,1,pos(' ',v));
      year:=copy(v,1,pos(' ',v)-1); delete(v,1,pos(' ',v));
      guar:=copy(v,1,pos(' ',v)-1); delete(v,1,pos(' ',v));
      price:=copy(v,1,length(v));
    end;
  end;
 
var
  s:mas;
  i,n,prv1,prv2:integer; //чтобы можно было ввести через пробел
  f1,f2:text;
  manv,v:string;
begin
  assign(f1,'input.txt'); assign(f2,'output.txt');
  reset(f1); rewrite(f2); n:=0;
  while not eof(f1) do begin
    inc(n);
    readln(f1,v);
    convert(s,v,n);
  end;
  sort(s,n);
  write('Укажите изготовителя: '); readln(manv);
  write('Укажите пределы цен: '); readln(prv1,prv2);
  for i:=1 to n do
    with s[i] do
      if (manuf = manv) and (price>=inttostr(prv1)) and (price<=inttostr(prv2)) and (year>'2003') and (guar>'12') then begin
      v:=name+' '+manuf+' '+year+' '+guar+' '+price;
      writeln(f2,v);
      writeln(name,' ',manuf,' ',year,' ',guar,' ',price);
      end;
  close(f1); close(f2);
end.