program przypisanie;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
tab:array[1..5] of string;
ind:byte;
wyb:char;
begin
tab[1]:= 'Adam';
tab[2]:= 'Marek';
tab[3]:= 'Krzysiek';
tab[4]:= 'Tomek';
tab[5]:= 'Pawel';
writeln('W zaleznosci od podanego indexu program wyswietli dane imie');
writeln('Podaj wartosc indexu w zakresie 1-5 ');
repeat
readln(ind);
if ( (ind>=1) and (ind<=5) )then
begin
writeln(tab[ind]);
end else
begin
writeln('zla wartosc , wpisz jeszcze raz!');
end;
until( ( ind>=1) and(ind<=5 ) );
readln;

repeat
writeln('Czy chcesz jeszcze raz? (T/N)');
readln(wyb);
if( ( wyb='T')or(wyb='t'))then
begin
writeln('Podaj wartosc indexu w zakresie 1-5 ');
repeat
readln(ind);
if ( (ind>=1) and (ind<=5) )then
begin
writeln(tab[ind]);
end else
begin
writeln('zla wartosc , wpisz jeszcze raz!');
end;
until( ( ind>=1) and(ind<=5 ) );
readln;

end;
until( (wyb='N')or(wyb='n') );
writeln('*** PROGRAM ZAKONCZYL SWOJE DZIALANIE ***');
readln;


end.