Ребят решите пожалуйста 3 задачи

[Skvot]

Матрица
1.Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали
Строки
2.Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
Массив
3.Дан массив X(N). Переписать в массив Y подряд положительные и в массив Z отрицательные эле-менты массива Х, при N<=24.

Ребят помогите пожалуйста решить, если можно то с блок схемой

[Stilet]

2. Примерно так:

var s,m:string;i,j:integer;
begin
s:='qwe rtert rtye rtyrt yu retert ygb fds ';
J:=1;
for i:=1 to length(s) do begin
 if (s[i]=' ') then begin
 if (i-j=3) then begin
  m:=copy(s,j,i-j);
  writeln(m);
  end;
  j:=i+1;
 end;
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Sazary]

Третья:

uses crt;
const nMAX=24;
var
x,y,z : array[1..nMAX] of integer;
i,yj,zj,n : integer;
begin
clrscr;
write('Enter N: ');
readln(n);
if n>nMAX then n:=nMAX;
yj:=0;
zj:=0;
for i:=1 to n do
  begin
  write('Enter x[',i,']: ');
  readln(x[i]);
   if x[i]>0 then
     begin
     inc(yj);
     y[yj] := x[i];
     end
   else if x[i]<0 then
     begin
     inc(zj);
     z[zj] := x[i];
     end;
  end;
writeln;
if yj>0 then
  begin
  writeln('Elementy y:');
  for i:=1 to yj do
    write(y[i]:4);
  end;
writeln;
if zj>0 then
  begin
  writeln('Elementy z:');
  for i:=1 to zj do
    write(z[i]:4);
  end;
if (zj=0) and (yj=0) then writeln('Vse elementy nulevye');
readln;
end.

[Sazary]

Первая:

uses crt;
const n=5;
var
a : array[1..n,1..n] of integer;
i,j,maxj,tmp : integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    a[i,j] := random(20)-4;
    write(a[i,j]:4);
    end;
  writeln;
  end;
writeln('------');
for i:=1 to n do
  begin
  maxj := 1;
  for j:=1 to n do
    if a[i,j]>a[i,maxj] then maxj := j;
  tmp := a[i,maxj];
  a[i,maxj] := a[i,i];
  a[i,i] := tmp;
  end;
{----}
for i:=1 to n do
  begin
  for j:=1 to n do
   write(a[i,j]:4);
  writeln;
  end;
readln;
end.

[pomoshnic]

Вот мой вариант 3 задачи:

Var a,y,z:array [1..24] of integer;
I,j,m,n:integer;
Begin
Write('Vvedite N ');
Readln(n);
If n>24 then n:=24;
For i:=1 to n do 
Begin
Read (a[i]);
End;
Writeln('----');
For i:=1 to n do
Case a[i] of
-1000..-1:begin inc(j); z:=a[j]; end;
1..1000:begin inc(m); y:=a[m]; end;
End; 
For i:=1 to j do write(z[i],' ');
Writeln('----');
For i:=1 to m do write(y[i],' ');
Readln
End.