Пример простейшей базы данных. Меню кафе или ресторана

uses crt;
const n = 7;
type 
 kafe = record
  name: string;
  price: string;
  sostav: string;
 end;
 
var i: integer;
    m: array [1..n] of kafe;
    q: char;
    f: text;
begin
 clrscr;
 assign(f,'menu.txt');
{ rewrite(f);  //  если нужно ручное заполнение 
 for i:=1 to n do
  begin
   readln(m[i].name);
   writeln(f,m[i].name);
   readln(m[i].price);
   writeln(f,m[i].price);
   readln(m[i].sostav);
   writeln(f,m[i].sostav);
  end;}
 while true do
  begin
   writeln('-------Меню кафе "***"-------');
   writeln('1-просмотр меню; 2-Выход.'); 
   writeln('-----------------------------'); 
   readln(q);
   case q of
    '1': begin
          reset(f);
          i:=1;
          while not eof(f) do
           begin
            readln(f,m[i].name);
            writeln('Наименование: ',m[i].name);
            read(f,m[i].price);
            writeln('Цена: ',m[i].price,' ');
            readln(f,m[i].sostav);
            writeln('Состав: ',m[i].sostav);
            inc(i);
            writeln;
           end;
         end; 
    '2': break;
   end; 
  end;
  close(f);
end.

uses crt, graph;
 
procedure Menu_1(x,y:integer);
Begin
 rectangle(x,y,x+100,y+15);
End;
 
Procedure Menu_0(x,y,k:integer);
  var i:byte;
Begin
     outtextxy(x+10,y+4,'МЕНЮ');
End;
 
Procedure Menu_2(x,y,k:integer);
  var i:byte;
Begin
     outtextxy(x+10,y+5,'Первое');
     outtextxy(x+10,y+40,'Салаты');
     outtextxy(x+10,y+75,'Закуски');
     outtextxy(x+10,y+110,'Десерты');
     outtextxy(x+10,y+145,'Напитки');
     {for i:=1 to 2 do}
End;
 
Procedure Menu_Scan(x,y,k:integer; var n:integer);
var key:char; s:string;
Begin
n:=1;
setColor(7);
Menu_1(x,y);
repeat
 
    key := readkey;
      case key of
         #72:Begin
                  if(n=1) then Begin
                            setcolor(white);
                             Menu_1(x,y);
                              setcolor(5);
                              y:=y+(k-1)*35;
                              Menu_1(x,y);
                              n:=k;
                              End
                  else Begin
                            setColor(white);
                             Menu_1(x,y);
                              y:=y-35;
                              setColor(4);
                              Menu_1(x,y);
                              dec(n);
                              End;
                   End;
         #80:Begin
                  if(n=k) then Begin
                             setColor(white);
                              Menu_1(x,y);
                               y:=y-(k-1)*35;
                               setColor(7);
                               Menu_1(x,y);
                               n:=1;
                               End
                 else Begin
                             setColor(white);
                              Menu_1(x,y);
                               y:=y+35;
                               setColor(7);
                               Menu_1(x,y);
                               inc(n);
                               End
             End;
 
    End;
 
 
until key=#13;
End;
 
 
var  nn,gm,gd,n,x,k,y:integer;
      f:text;
      s,str:string;
     b:boolean;
      ch:char;
      i,j:integer;
      label x1;
 
Begin
x1:
  gm:=9;
  gd:=2;
InitGraph(gm,gd,'c:\tp7\units');
setbkcolor(5);
setfillstyle(1,3);
bar(200,200,400,280);
outtextxy(265,175,'ПИЦЦАПАРК');
outtextxy(260,235,'ENTER-вход');
readln;
setfillstyle(5,6);
bar(0,0,getmaxx,getmaxy);
k:=2;
x:=265;
y:=100;
 
Menu_0(x,y,k);
Menu_Scan(x,y,k,n);
Closegraph;
 
case n of
       1:Begin
       gm:=9;
       gd:=2;
       InitGraph(gm,gd,'c:\tp7\units');
       setfillstyle(3,4);
       bar(0,0,getmaxx,getmaxy);
       k:=5;
       x:=60;
       y:=60;
       Menu_2(x,y,k);
       Menu_Scan(x,y,k,n);
       case n of
            1:begin
            setfillstyle(1,2);
            bar(0,0,getmaxx,getmaxy);
             assign(f,'c:\Work\1-1.txt');
   reset(f);
      nn:=0;
    while (not EOF(f)) do
       begin
         readln(f,s);
         settextstyle(3,0,3);
        outtextxy(10,10+nn,s);
        inc(nn,30);
 
        end;
        close(f);
        readln;  readln; goto x1;
            end;
             2:Begin
            setfillstyle(1,2);
            bar(0,0,getmaxx,getmaxy);
             assign(f,'c:\Work\1-2.txt');
    reset(f);
      nn:=0;
    while (not EOF(f)) do
       begin
         readln(f,s);
         settextstyle(3,0,3);
        outtextxy(10,10+nn,s);
        inc(nn,30);
        end;
        close(f);
        readln;          goto x1;
            end;
             3:Begin
            setfillstyle(1,2);
            bar(0,0,getmaxx,getmaxy);
                 assign(f,'c:\Work\1-3.txt');
    reset(f);
      nn:=0;
    while (not EOF(f)) do
       begin
         readln(f,s);
         settextstyle(3,0,3);
        outtextxy(10,10+nn,s);
        inc(nn,30);
        end;
        close(f);
        readln;     goto x1;
             end;
             4:Begin
            setfillstyle(2,3);
            bar(0,0,getmaxx,getmaxy);
                 assign(f,'c:\Work\1-4.txt');
    reset(f);
      nn:=0;
    while (not EOF(f)) do
       begin
         readln(f,s);
         settextstyle(3,0,3);
        outtextxy(10,10+nn,s);
        inc(nn,30);
        end;
        close(f);
        readln;    goto x1;
             end;
             5:Begin
            setfillstyle(1,2);
            bar(0,0,getmaxx,getmaxy);
                 assign(f,'c:\Work\1-5.txt');
    reset(f);
      nn:=0;
    while (not EOF(f)) do
       begin
         readln(f,s);
         settextstyle(3,0,3);
        outtextxy(10,10+nn,s);
        inc(nn,30);
        end;
        close(f);
        readln;   goto x1;
             end;
 
    end;
     while (not EOF(f)) do
       begin
         readln(f,s);
         settextstyle(3,0,3);
        outtextxy(10,10+nn,s);
        inc(nn,30);
        end;
        close(f);
        readln;
             end;
            end;
  CloseGraph;
 Readkey;
 
End