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.