вообще не могу понять как делать

Uses Crt;
Const
   N = 15;
   M = 10;
Var
   A:array[1..N,1..M] of real;
   i,j:integer;
   S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random*13;
        Write(A[i,j]:6:3,'  ')
        End;
    WriteLn
    End;
S3:=0;
S7:=0;
For j:= 1 to M do
    Begin
    S3:=S3+A[3,j];
    S7:=S7+A[7,j];
    End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
     else WriteLn('S3 = S7');
ReadLn
End.

Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом:

Var s:string;   
  i,k:integer;
Begin 
  writeln('Введите строку'); 
  readln(s); 
  k:=0; 
  for i:=1 to length(s) do 
  begin   
    if s[i]=' ' then k:=k+1; 
  end; 
  writeln('Количество слов в предложении = ',k+1);
end.

А эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами:

var s: string;   
   i, k: integer;
begin 
  k := 0; 
  writeln('Введите строку: '); 
  readln(s); 
  s:= ' ' + s; 
  for i:=1 to length(s)-1 do   
   if (s[i] = ' ') and (s[i+1] <> ' ') then k:=k+1; 
  writeln(k)
end.