Меню для кафе

type
  Elem = record
    nm : String; //название блюда
    categ : String; //Категория
    cost : Word; //LongWord для Беларуси :)
    {что-нибудь ещё что в голову взбредёт}
    weight : Byte; //масса блюда
  end;

Program Menu;
Label X,Y,Z;
Var
A,B,C,D:Char;
Begin
WriteLn ('Введите название блюда');
ReadLn (A);
If A=('апельсин') Then WriteLn ('Стоимость блюда - 200р') Else GOTO X;
X: If A=('мандарин') Then WriteLn ('Стоимость блюда - 50р') Else GOTO Y;
Y: IF A=('киви') Then WriteLn ('Стоимость блюда - 300р') Else GOTO Z;
Z: WriteLn ('Такого блюда в меню нет');
End.

const
  n = 3;
type
  food = record
    name : string; //название блюда    
    cost : word; //цена
    weight : string //масса блюда
  end;
var
  menu : array [1..n] of food;
  a : integer;
begin
  {формируем меню}
  menu[1].name := 'Пельмени Русские';
  menu[1].cost := 150;
  menu[1].weight := '250';
  menu[2].name := 'Сельдь с винигретом';
  menu[2].cost := 44;
  menu[2].weight := '50/150';
  menu[3].name := 'Бифштекс рубленый';
  menu[3].cost := 160;
  menu[3].weight := '230';
  {выводим менюшку}
  repeat
    writeln('Меню нашего кафе:');
    writeln('1 - пельмени');
    writeln('2 - винигрет');
    writeln('3 - бивштекс');
    {можно добавлять}
    writeln('0 - выход');
    readln(a);
    case a of 
      1 : writeln('Название: ', menu[1].name, ', цена: ', menu[1].cost, ' руб. , выход: ', menu[1].weight, ' г.');
      2 : writeln('Название: ', menu[2].name, ', цена: ', menu[2].cost, ' руб. , выход: ', menu[2].weight, ' г.');
      3 : writeln('Название: ', menu[3].name, ', цена: ', menu[3].cost, ' руб. , выход: ', menu[3].weight, ' г.')
    end
  until a = 0;  
  end.

const
  n = 3;
type
  food = record
    name : string; //название блюда    
    cost : word; //цена
    weight : string; //масса блюда
    flag : boolean //наличие
  end;
var
  menu : array [1..n] of food;
  a : integer;
begin
  {формируем меню}
  menu[1].name := 'Пельмени Русские';
  menu[1].cost := 150;
  menu[1].weight := '250';
  menu[1].flag := true;
  menu[2].name := 'Сельдь с винигретом';
  menu[2].cost := 44;
  menu[2].weight := '50/150';
  menu[2].flag := false;
  menu[3].name := 'Бифштекс рубленый';
  menu[3].cost := 160;
  menu[3].weight := '230';
  menu[3].flag := true;
  {выводим менюшку}
  repeat
    writeln('Меню нашего кафе:');
    writeln('1 - пельмени');
    writeln('2 - винигрет');
    writeln('3 - бивштекс');
    {можно добавлять}
    writeln('0 - выход');
    readln(a);
    case a of 
      1 : begin
            writeln('Название: ', menu[1].name, ', цена: ', menu[1].cost, ' руб. , выход: ', menu[1].weight, ' г.');
            if menu[1].flag = true then writeln('вы можете заказать данное блюдо') else
                                          writeln('данного блюда в наличии нет')
          end;
      2 : begin
            writeln('Название: ', menu[2].name, ', цена: ', menu[2].cost, ' руб. , выход: ', menu[2].weight, ' г.');
            if menu[2].flag = true then writeln('вы можете заказать данное блюдо') else
                                          writeln('данного блюда в наличии нет')
          end;
      3 : begin
            writeln('Название: ', menu[3].name, ', цена: ', menu[3].cost, ' руб. , выход: ', menu[3].weight, ' г.');
            if menu[3].flag = true then writeln('вы можете заказать данное блюдо') else
                                          writeln('данного блюда в наличии нет')
          end
    end
  until a = 0;  
  end.