PROGRAM Rekordy;

USES Crt;

TYPE Osoba = RECORD
               Imie, Nazw : String[15];
               Adres      : String[50];
               Tel        : String[10];
             END;
     Tab  = ARRAY[1..35] OF Osoba;

Var x  : Tab;
    n  : Byte;
    i  : Integer;
    Zn : Char;

PROCEDURE Wpisz(Var a : Tab; n : Byte);
Begin
  ClrScr;
  WriteLn('Dane osoby nr ', n:3);
  Write('Podaj imie     : ');
  ReadLn(a[n].Imie);
  Write('Podaj nazwisko : ');
  ReadLn(a[n].Nazw);
  Write('Podaj adres    : ');
  ReadLn(a[n].Adres);
  Write('Podaj telefon  : ');
  ReadLn(a[n].Tel);
End;

PROCEDURE Wypisz(a : Tab; n : Integer);
Begin
 ClrScr;
 Write('Osoba nr ', n:3);
 WriteLn;
 With a[n] Do
  Begin
   WriteLn;
   WriteLn('NAZWISKO : ', Nazw);
   WriteLn('IMIE     : ', Imie);
   WriteLn('ADRES    : ', Adres);
   WriteLn('TELEFON  : ', Tel);
  End;
 WriteLn;
 Zn:=ReadKey;
End;

BEGIN
  ClrScr;
  Write('Podaj liczbe obsob : ');
  ReadLn(n);
  For i:=1 To n Do Wpisz(x, i);
  For i:=1 To n Do Wypisz(x, i);
END.