VAR
 i:INTEGER;
 S:STRING;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 For i:=1 to Length(S) do
  If S[i]=' ' then Write('_') else
  If (S[i]='.') or (S[i]=',') or (S[i]=';') or (S[i]=':')
  or (S[i]='-') or (S[i]='?') or (S[i]='!') then Write(' ')
  else write (S[i]);
 WriteLn;
 ReadLn;
END.

VAR
 i,N,Min,Max,Imin,Imax:INTEGER;
 A,B:ARRAY[1..100] of INTEGER;
BEGIN
 Write('N= ');
 ReadLn(N);
 Min:=32000;
 Max:=-32000;
 For i:=1 to N do
  begin
   Write('A[',i,']= ');
   ReadLn(A[i]);
   If A[i]<Min then
    begin
     Min:=A[i];
     Imin:=i;
    end;
   If A[i]>Max then
    begin
     Max:=A[i];
     Imax:=i;
    end;
   B[i]:=0;
   end;
 B[Imin]:=A[Imin];
 B[Imax]:=A[Imax];
 For i:=1 to N do
  WriteLn(A[i]:6,B[i]:10);
 ReadLn;
END.

Var
 A:ARRAY[1..500] of WORD;
 N,i:INTEGER;
Begin
 Write('N= ');
 ReadLn(N);
 For i:=1 to N do
  A[i]:=1;
 ...