Модуль

unit W_Stroki;
 
interface
 
  procedure GenStrN(n:integer;var S:string);//процедуру формирование строки из заданного количества случайных цифр;
  procedure PrintStrN(S:string);//процедуру вывода на экран монитора символов строки через один пробел;
  function GetNoOddNums(S:string):integer;//функцию, возвращающую количество чётных цифр в указанной строке;
  procedure DelDuplicates(var S:string);//процедуру изменения строки путём удаления из неё повторяющихся символов
 
implementation
 
procedure GenStrN(n:integer;var S:string);
var
  i:integer;
begin
  S:='';
  for i:=1 to n do S:=S+chr(48+random(10));
end;
 
procedure PrintStrN(S:string);
var
  i:integer;
begin
  for i:=1 to length(S) do
    write(S[i]+' ');
  writeln;
end;
 
function GetNoOddNums(S:string):integer;
var
  i:integer;
begin
  Result:=0;
  for i:=1 to length(S) do
    if s[i] in ['0','2','4','6','8'] then Result:=Result+1;
end;
 
procedure DelDuplicates(var S:string);
var
  i:integer;
begin
  i:=1;
  while i<=length(s) do begin
    while pos(S[i]+S[i],S)>0 do delete(S,pos(S[i]+S[i],S),1);
    i:=i+1;
  end;
end;    
 
initialization
 
randomize;
 
 
end.

uses W_stroki;
procedure Test_progs(n:integer);
var
  s:string;
begin
  writeln('Длина строки:',n);
  GenStrN(n,s);
  writeln('GenStrN(',n,',s)=',s);
  writeln('PrintStrN(s):');
  PrintStrN(s);
  writeln('GetNoOddNums(S:string):integer=',GetNoOddNums(s));
  DelDuplicates(s);
  writeln('DelDuplicates(var S:string)=',s);
  loop 60 do write('-');
  writeln;
end;
begin
  Test_progs(10);
  Test_progs(15);
  Test_progs(20);
end.

function GetNoOddNums(S:string):integer;
var
  i:integer;
begin
  Result:=0;
  for i:=1 to length(S) do
    if s[i] in ['0','2','4','6','8'] then Result:=Result+1;
end;

S:=S+chr(48+random(10));

procedure DelDuplicates(var S: string);
var
  i, j: integer;
begin
  i := 1;
  while i < length(s) do
  begin
    for j := length(s) downto i + 1 do
      if s[j] = s[i] then delete(s, j, 1);
    i := i + 1;
  end;
end;