уровень и это не игра а позновательный сайт логики

var

       a: array [1..30] of Word;

       i, c, sum: Word;

       

begin

       Randomize;

       

       for i := 1 to 30 do

               a[i] := Random (76);

       

       for i := 1 to 30 do

               Write (a[i], ' ');

       

       WriteLn;

       

       for i := 1 to 30 do

               if (a[i] >= 10) and (a[i] <= 35) then begin

                       Inc (c);

                       sum := sum + a[i];

                       Write (a[i], ' ')

               end;

       

       WriteLn;

       WriteLn ('Кол-во чисел из диапазона [10; 35]: ', c);

       Write ('Сумма чисел из диапазона [10; 35]: ', sum);

end.        

При работе со строками можно использовать много различных решения задачи. Здесь предлагается в котором применяются только две библиотечных подпрограммы (length и delete). Можно было сделать и без delete, а можно использовать trim, например. Короче говоря, вот такой вариант программы на паскале:
var 
s,s1:string;
mn:set of char;
i,l:integer;
begin
writeln('Введите строку:');
readln(s);
mn:=['.',',',';',':','!','?'];
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
s1:=s[1];
for i:=2 to length(s)-1 do
 if not((s[i]=' ')and(s[i+1] in mn)) then s1:=s1+s[i];
s1:=s1+s[length(s)];
s:=s1[1];
for i:=2 to length(s1)-1 do
 if (s1[i] in mn)and(s1[i+1]<>' ') then s:=s+s1[i]+' ' else s:=s+s1[i];
s:=s+s1[length(s1)];
writeln(s);
end.

Пример:
Введите строку:
   Дана строка   ,состоящая из слов  ,    разделенных пробелами   .   
Дана строка, состоящая из слов, разделенных пробелами.