Блок-схема

Program ekzamen;
  uses crt; //подключенный модуль
const n=8; //константа
type Price=record  //запись
     tovar: string[20]; //поля записи
     mag: string[12];
     stoim: string[10] ;
   end;
var
  f: file of Price; //текстовый файл
  w: price;
  spisok: array [1..n] of Price;
  t: Price;
  i,j,k: integer;
  nfile: string;
Procedure sozd; //процедура создания файла
  begin
  clrscr;
  writeln('СОЗДАНИЕ МАССИВА  ЗАПИСЕЙ ТОВАРОВ');
  writeln('******************************');
  for i := 1 to n do   begin //запускаем цикл с параметром для записи файла
  writeln('Ввести ',i,' - ю запись');
  with spisok[i] do begin
  write('Введите название Товара: ');
  readln(tovar); //записываем в файл данные
  write('Введите название магазина, в котором продается товар: ');
  readln(mag);
  write('Стоимость товара в тенге: ');
  readln(stoim);
  end;
  end;
  writeln('Ввод данных закончен');
  for i := 1 to N-1 do           {~~~~~~Сортировка по алфавиту~~~~~~}
  for j:=i+1 to n do
  if spisok[i].tovar > spisok[j].tovar then begin
  w:=spisok[i]; spisok[i]:=spisok[j]; spisok[j]:=w;
  end;
  readln;
  end;
Procedure prosm;   //процедура просмотра файла
  begin
  clrscr;
  writeln('ЧТЕНИЕ  МАССИВА  ЗАПИСЕЙ');
  writeln('**************************');
  writeln;
  writeln('_______________________________________________');
  writeln('  N   Товар       Магазин    Стоимость');
  writeln('_______________________________________________');
  for i := 1 to N do
  with spisok[i] do begin
  writeln(i:3,tovar:15,mag:10,stoim:13);
  end;
  writeln('_______________________________________________');
  writeln('Конец просмотра');
  readln;
  end;
Procedure zapis;   //процедура вывда информации
  begin
  clrscr;
  writeln('ЗАПИСЬ МАССИВА В ФАЙЛ');
  writeln('**********************');
  writeln;
  write(' Ввести имя файла (Например spisok.txt): ');
  readln( nfile);
  assign(f,nfile); //связываем файловую перменную с физическим файлом
  rewrite(f);     //открываем файл для записи данных в файл
  clrscr;
  writeln('ЗАПИСЬ МАССИВА В ФАЙЛ');
  writeln('**********************');
  writeln;
  for i := 1 to N do
  write(f,spisok[i]);
  writeln(' Запись в файл закончена');
  close(f);  //закрываем файл
  writeln('Содержимое файла');
  writeln('*****************');
  writeln('_______________________________________________');
  writeln('  N   Товар       Магазин    Стоимость');
  writeln('_______________________________________________');
  reset(f);  //открываем файл для чтения
  i:=0;
  while not eof(f) do begin
  read(f,w);
  inc(i);
  with w do
  writeln(i:3,w.tovar:15,w.mag:10,w.stoim:13);
  end;
  writeln('_______________________________________________');
  close(f);
  readln;
  end;
Procedure vibor;   //процедура поиска информации
  var m:integer; tv:string; ff:boolean;  //описание переменных процедуры
  begin
  clrscr;
  writeln('Поиск товаров по алфавиту');
  writeln('**************************');
  writeln;
  write('Ввести букву: ');
  readln(tv); //считываем данные введенные с клавиатуры
  clrscr;
  writeln('Поиск по алфавиту ',tv );
  writeln('****************************');
  writeln;
  m:=0;ff:=true;  //логической переменной присваиваем значение истина
  writeln('_______________________________________________');
  writeln('  N   Товар       Магазин    Стоимость');
  writeln('_______________________________________________');
  for i := 1 to N do
  with spisok[i] do
  if tovar=tv then begin
  m:=m+1;
  ff:=false; //логической переменной присваиваем значение ложь
  writeln(i:3,tovar:15,mag:10,stoim:13);
  end;
  if ff then begin writeln('Такой записи нет');readln;end;
          writeln('Поиск товаров закончен');
          readln;
        end;
BEGIN   //меню
  textbackground (1);
  textcolor (10);
  clrscr;
  repeat    //цикл с постусловием
  clrscr;
  Writeln('--------------ПОЛЬЗОВАТЕЛЬСКОЕ МЕНЮ------'  );
  writeln('-----------------------------------------');
  writeln('1. Создание массива записей с сортировкой');
  writeln('2. Просмотр массива записей');
  writeln('3. Выбор по алфавиту');
  writeln('4. Запись массива в файл');
  writeln('5. Выход');
  writeln('-----------------------------------------');
  write('Ваш выбор ');
  readln(k);
  case k of  //условный оператор выбора
  1:sozd;
  2:prosm;
  3:vibor;
  4:zapis;
  5:;  {Выход}
  else begin
  writeln('нет такого пункта');
  readln;
  end;
  end;        {case}
  until k=5; //цикл с постусловием
  writeln('Конец программы');
  readln;
END.