Создание функциий

program prog;
 
const
  M = 3;
  N = 4;
 
type
  Matrix = array[1..M, 1..N] of integer;
 
function negCount(mtrx: Matrix): integer;
var
  i, j: integer;
  res: integer;
begin
  res:= 0;
  for i:= 1 to M do
    for j:= 1 to N do
      if mtrx[i, j] < 0 then inc(res);
  negCount:= res;
end;
 
var
  mtrx: Matrix;
  i, j: integer;
begin
  Randomize;
 
  for i:= 1 to M do begin
    for j:= 1 to N do begin
      mtrx[i,j]:= Random(10)-5;
      Write(mtrx[i,j]:3);
    end;
    WriteLn;
  end;
 
  WriteLn( negCount(mtrx) );
  ReadLn;
end.

program prog;
 
const
  specialChars: set of char = ['1'..'9','E','Y','U','I','O','A'];
var
  line: string;
  i: integer;
  spaceCount: integer;
begin
 
  Write('Source text: ');
  ReadLn(line);
 
  Write('Result: ');
  spaceCount:= 0;
  for i:= 1 to Length(line) do begin
    if (line[i] in specialChars) then Write(line[i])
    else if line[i] = ' ' then Inc(spaceCount);
    Write(line[i]);
  end;
 
  WriteLn;
  WriteLn('Space count: ', spaceCount);
  ReadLn;
end.