Type
 TRecord=Record
   Str:String;
   Val:Integer
 End;

Var
 Data:Array[0..100] Of TRecord;
 Count:Integer;

Procedure Add(s:String;i:Integer);
Begin
 Data[Count].Str:=s;
 Data[Count].Val:=i;
 Inc(Count)
End;

Procedure Show;
Var
 i:Integer;
Begin
 For i:=0 To Count-1 Do
   WriteLn(Data[i].Str,': ',DAta[i].Val)
End;

Var
 s:String;
 n:Integer;

Begin
 While True Do
 Begin
   Write('Enter String (Press Enter To Stop): ');
   ReadLn(s);
   If s='' Then
     Break;
   Write('Enter Number: ');
   ReadLn(n);
   Add(s,n)
 End;
 Show
End.