Var
 YN:Char;
 Game:Byte;

Procedure String_Game;
Var
 S:String;
 W,Wrd:Array[1..100] of String;
 Nw,i,j:Byte;
begin
 Writeln('Enter the string:');
 Readln(S);
 Nw:=1;
 i:=0;
 W[Nw]:='';
 Repeat
  Inc(i);
  If (S[i]<>' ') and (i<=Length(S)) then
   W[Nw]:=W[Nw]+S[i]
  else
  If S[i]=' ' then
   begin
    repeat
     Inc(i);
    until S[i]<>' ';
    Dec(i);
    Inc(Nw);
    W[Nw]:='';
   end;
 Until i>Length(S);
 For i:=1 to Nw do
  begin
   For j:=Length(W[i]) downto 1 do Write(W[i][j]);
   If i<Nw then Write(' ');
  end;
 Writeln
end;

Procedure Matrix_Game;
Const
 Mmax=9;
 Nmax=9;
Var
 A:Array[1..Mmax,1..Nmax] of Integer;
 M,N,i,j,Imin,Imax,Jmin,Jmax:Byte;
 Min,Max:Integer;
begin
 Write('Number of lines = ');
 Readln(M);
 Write('Number of columns = ');
 Readln(N);
 For i:=1 to M do
  For j:=1 to N do
   begin
    Write('A[',i,',',j,']= ');
    Readln(A[i,j]);
   end;
 Writeln;
 Imin:=1;
 Jmin:=1;
 Imax:=1;
 Jmax:=1;
 Min:=A[1,1];
 Max:=A[1,1];
 For i:=1 to M do
  begin
   For j:=1 to N do
    begin
     Write(A[i,j]:8);
     If A[i,j]<Min then
      begin
       Min:=A[i,j];
       Imin:=i;
       Jmin:=j;
      end;
     If A[i,j]>Max then
      begin
       Max:=A[i,j];
       Imax:=i;
       Jmax:=j;
      end;
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Minimal element is A[',Imin,',',Jmin,']=',A[Imin,Jmin]);
 Writeln('Maximal element is A[',Imax,',',Jmax,']=',A[Imax,Jmax]);
 Writeln;
end;

Begin
 Repeat
  YN:=' ';
  Write('Choose the game: 1 - String, 2 - Matrix, 3 - Exit ');
  Readln(Game);
  If Game=1 then String_Game;
  If Game=2 then Matrix_Game;
  If Game=3 then
   begin
    Write('Are you sure (Y/N)? ');
    Readln(YN);
   end;
 Until (YN='Y') or (YN='y');
End.