uses crt;
type re=record
       nev:string[30];
       mennyiseg:integer;
     end;

var keszlet:array[1..10] of re;
    beszerzes:array[1..5] of re;


procedure beolvask;
var i:byte;

begin
  clrscr;
  for i:=1 to 10 do
  begin
    writeln('Kerem a keszlet ',i,'. elemenek a nevet:');
    readln(keszlet[i].nev);
    writeln('Kerem a keszlet ',i,'. elemenek a mennyiseget:');
    readln(keszlet[i].mennyiseg);
  end;
end;

procedure beolvasb;
var i:byte;

begin
  clrscr;
  for i:=1 to 5 do
  begin
    writeln('Kerem a beszerzett aru ',i,'. elemenek a nevet:');
    readln(beszerzes[i].nev);
    writeln('Kerem a beszerzett aru ',i,'. elemenek a mennyiseget:');
    readln(beszerzes[i].mennyiseg);
  end;
end;

procedure csinal;
var i,j:integer;

begin
  i:=1;
  j:=1;
  while (i<=10) and (j<=5) do
    if keszlet[i].nev=beszerzes[j].nev then
    begin
      keszlet[i].mennyiseg:=keszlet[i].mennyiseg+beszerzes[j].mennyiseg;
      inc(i);
      inc(j);
    end else
      if keszlet[i].nev<beszerzes[j].nev then inc(i) else inc(j);
end;

procedure kiir;
var i:byte;

begin
  clrscr;
  for i:=1 to 10 do
    writeln(keszlet[i].nev,' ',keszlet[i].mennyiseg);
  readln;
end;

procedure menu;
var x:byte;

begin
while x<>5 do
begin
  clrscr;
  writeln('Menu');
  writeln('1:Keszlet beolvasasa');
  writeln('2:Beszerzes');
  writeln('3:Keszlet modositasa');
  writeln('4:Keszlet kiiratasa');
  writeln('5:Kilep');
  readln(x);
  case x of
    1:beolvask;
    2:beolvasb;
    3:csinal;
    4:kiir;
    5:halt;
  end;
end;
end;

begin
  menu;
end.