Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

Program N1;
uses crt;
 
const N=24;
 
Var
   i,k,m,l:integer;
   X,Y,Z: array[1..n]of integer;
 
begin
repeat
      write('Vvedite razmer massiva '); readln(k);
until (k<=N);
 
m:=0; l:=0;
 
Writeln;
Writeln('Massiv X');
for i:=1 to k do
begin
    readln(X[i]);
    if X[i]>=0 then
      begin
          inc(m);
          Y[m]:=X[i];
      end
    else
      begin
          inc(l);
          Z[l]:=X[i];
       end;
end;
 
Writeln;
Writeln('Massiv Y');
for i:=1 to m do
    write(Y[i],' ');
 
Writeln;
Writeln('Massiv Z');
for i:=1 to l do
    write(Z[i],' ');
end.

Program N2;
uses wincrt;
 
const N=3;
 
var A: array[1..n,1..n] of integer;
    i,j,temp,max,k: integer;
 
begin
     for i:=1 to n do
         for j:=1 to n do begin
                  write('A(',i,',',j,')='); readln(A[i,j]);
                  gotoXY(1,1);
                  clrscr;
             end;
 
     writeln('Vawa matrica');
     for i:=1 to n do begin
         for j:=1 to n do
              write(A[i,j],' ');
         writeln;
         end;
 
     for i:=1 to n do
      begin
        max:=A[i,1];
        k:=1;
        for j:=1 to n do
           if A[i,j]>max then
              begin
                  max:=A[i,j]; k:=j;
              end;
        temp:=A[i,i];
        A[i,i]:=A[i,k];
        A[i,k]:=temp;
      end;
 
     writeln;
     writeln('Sortirovannaya matrica');
     for i:=1 to n do begin
         for j:=1 to n do
              write(A[i,j],' ');
         writeln;
         end;
end.