Составить блок-схему к уже решенной задаче

[serge-first]

Ребята, выручайте, нужна блок-схема к задаче:

Из ассортимента конфет, выпускаемых пермской кондитерской фабрикой, выбрать те, стоимость которых за 1 кг попадает в указанный диапазон. Указать срок их годности и номера магазинов, в которых они имеются в продаже.

Указание: При решении задачи, использовать тип данных Записи (record). Исходные данные должны содержаться в текстовом файле. Количество записей в файле не меньше 20 и заранее неизвестно, сколько их. Результат работы программы записать в файл с другим именем.

uses
  crt;

var
  x,y:text;
  a: array[1..100500]  of record
    name: string;
    cost: real;
    srok: string;
    shop: set of integer;
  end;
  s, f: integer;

begin
  Writeln('Введите начало диапазона:');
  readln(s); 
  writeln('Введите конец диапазона:');
  readln(f); 
  var i := 0;
  assign(x,'x.txt');
  assign(y,'y.txt');
  reset(x);
  rewrite(y);
  var temp: integer; 
  while not eof(x) do 
  begin
    inc(i); 
    readln(x, a[i].name); 
    readln(x, a[i].cost); 
    readln(x, a[i].srok); 
    while not eoln(x) do
    begin
      read(x, temp); 
      include(a[i].shop, temp); 
     
    end;
    readln(x); 
  end;
  var n := i; 
  
  for i := 1 to n do 
    if (a[i].cost >= s) and (a[i].cost <= f) 
    then
    begin
    writeln(y, a[i].name); 
    writeln(y, a[i].srok); 
    foreach var az: integer in a[i].shop do
      write(y, az, ' '); 
    writeln(y); 
    end;
  close(x); 
  close(y);
  writeln('Чтение завершено успешно!');
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Vanta11a]

Базу получать тут:
http://paslab.ru/blok-shema.php

Уточнять по ГОСТ 19.701-90

[serge-first]

Чет как то криво)

Я обратился за помощью, может кто быстро это сделает, не успеваю, так бы конечно сам посидел)

Всё равно спасибо!

[Vanta11a]

Ты не обратился за помощью. Ты пришел за халявой. Вот качество, соответствующее халяве, ты и получил.

Помощь подразумевает хоть что-то, сделанное самостоятельно по вопросу. Единственный вопрос про блок-схемы, который получил от меня готовое решение, содержал в себе уже готовую блок-схему (хоть и кривую) + вопрос, как в рамки блок-схемы впихнуть рекурсивную функцию.

[serge-first]

Ты прав! Не спорю. Поблагодарил же)