Дана строка , удалить из строки символы пробела.

  uses crt;   var  s : string;           i,l : integer;   begin      write ('введите строку: ');       readln(s);       for i: =1 to length(s) do          if s[i]=' ' then delete(s,i,1);       writeln(s);   end.

A| b | a ^ b | ! (a ^ b) | ! a ^ b | f 0 | 0  |    0    |      1      |    0    |  1 0 | 1  |    0    |      1      |    1    |  1 1 | 0  |    0    |      1      |    0    |  1 1 | 1  |    1    |      0      |    0    |  0 эта функция равна ! (a ^ b)

Program abc; type      mas = array[0..1000] of integer; var      a: mas;     i, n, max: integer; begin   writeln('введите кол-во эл-тов массива: ');     readln(n);   for i : = 1 to n do   begin     writeln('введите значение элемента №', i);     readln(a[i]);   end;   writeln('все элементы массива имеют значение');   max : = -1;   for i : = 1 to n do     if a[i] > max then       max : = a[i];       if max < > -1 then         writeln('максимальное значение положительного элемент = ', max)     else writeln('положительных элементов нет');       readln; end.