program WPROWADZANIE_IMON_DO_TABLICY;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
tab:array[1..5]of string;
wyb:char;
i:integer;
begin
for i:=1 to 5 do
begin
writeln('Wprowadz imie numer ' ,i,' do tablicy');
readln(tab[i]);
end;
repeat
writeln('Czy chcesz aby wyswietlic zawartosc danej tablicy ? (T/N)');
readln(wyb);
if ( (wyb='T')or (wyb='t') ) then
begin
for i:=1 to 5 do
writeln(tab[i]);
end;


until ( (wyb='N')or (wyb='n') or (wyb='T') or (wyb='t') );
writeln('************************************************');


repeat
begin
writeln('Czy chcesz wpisac nowe imiona ?(T/N) ');
readln(wyb);
if( (wyb='T') or (wyb='t') ) then

begin
for i:=1 to 5 do
begin
writeln('Wprowadz imie numer ' ,i,' do tablicy');
readln(tab[i]);
end;


writeln('Czy chcesz aby wyswietlic zawartosc danej tablicy ? (T/N)');
readln(wyb);
if ( (wyb='T')or (wyb='t') ) then
begin
for i:=1 to 5 do
writeln(tab[i]);
end;
end;
end;
until ( (wyb='N') or (wyb='n') );
writeln('*********PROGRAM ZAKONCZYL SWOJE DZIALANIE*********');
readln;
end.