Дана строка , заменить символ ? на ! язык pascal

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

Код: 1) program mas; var i,ne,ch,n: integer; a: array [1..1000] of integer; begin read(n); randomize; for i: =1 to n do begin a[i]: =random(80)+21; write(a[i],' '); //распечатка массива, увидешь правильно ли программа выполняет функци                           end; for i: =1 to n do begin if a[i] mod 2=0 then ch: =ch+1 else ne: =ne+1; end; writeln; writeln('нечетные=',ne); writeln('четные=',ch); end. 2) const n = 10; var a: array [ 1 .. n ] of integer; i, znachenie, count: integer; sred_arifm, sum: real; begin for i: =1 to n do begin write('a[,'i,']='); readln(a[i]); end; write('введите значение: '); readln(znachenie); sum: =0; count: =0; for i: =1 to n do if a[i] > znachenie then begin inc(count); sum: =sum+a[i]; end; sred_arifm: =sum/count; write('среднее арифметическое =',sred_arifm: 3: 2); end.

Program ant; const n=6; m=6; var i,j: integer; var a: array [1..n,1..m] of real; begin writeln('введите матрицу'); for i: =1 to n do for j: =1 to m do begin writeln('a[',i,',',j,']'); readln(a[i,j]); end; writeln('исходная матрица'); for i: =1 to n do for j: =1 to m do begin writeln(a[i,j]); writeln; end; u: =0; for i: =1 to n do begin for j: =1 to m do  if i+j=7 then u: =u+ln(a[i,j]); end; writeln('среднее ',u); max: =[1,1]; for i: =1 to n do begin for j: =1 to m do if (a[i,j]> max) then [i,j]: =max; end; writeln('максимальное значение',max); u: =max; writeln('полученная матрица'); for i: =1 to n do for j: =1 to m do begin writeln(a[i,j]); writeln; end; end.