Алгоритм программы

[ElenaO]

Уважаемы программисты.Помогите пожалуйста в составлении алгоритма программы 2-х задач.
Program z1;
Uses crt;
Var
S,ss: string;
I,n: integer;
Begin
Clrscr;
Writeln('Vvedite frazu');
Read (s);
n:=1;
ss:='';
if s[length(s)]<>' ' then s:=s+' ';
For I:= 1 to length(s) do
If s[i]=' ' then
Begin
insert(copy(s,n,i-n)+' ',ss,1);
n:=i+1;
End;
Writeln(ss);

End.


Program z2;
uses
crt;

const
n = 5;
m = 5;

var
a: array[1..n, 1..m] of real;
i, j: integer;
Si, sum: real;
Sj: real;

begin
ClrScr;
randomize;
Si:=0;
Sj:=0;
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(8);
write(a[i, j]:2:2);
end;
writeln;
end;
for i := 1 to n do
begin
for j := 1 to m do
begin
Si := Si + a[i, j];
Sj := Sj + a[j, i];
end;
if ((Si > 0) and (Sj=5)) Then
begin
for j:= 1 to m do
begin
if a[i,j] > sum then
sum := sum + a[i,j];
writeln('Сумма', sum);
end;
end
else
write('особых элементов в матрице А нет');
break;
end;
end.

Если не получится 2,то можно хотя бы 1.
Заранее огромное спасибо.

[ElenaO]

В каких скобках обозначить это выражение:insert(copy(s,n,i-n)+' ',ss,1);