Вопрос Ребят скроее всего я туплю но нужна ваша помощь с паскалем

[Яяяя]

Program2.pas(17) : Нельзя преобразовать тип string к char

program Серебряный_Ёж;

var

s: string[50];

i, k: integer;



begin

write('Введите строку: ' readln(s);

k := 0;

for i := 1 to Length(s) do

if s = '!' then

begin

k := k + 1;

s := '.';

end

else if s = '.' then

begin

k := k + 1;

s := '...';

end;

if k <> 0 then writeln('Полученная строка: ', s)

else writeln('Восклицательных знаков нету!'

readln;

end.

 

[IceTouch]

char это один символ, не строка

 

[кто-то из росии]

go_dick_in_ass

 

[SashaGLX]

Причина в этом: s: string[50]; - массив из строк
...
s := '.'; - присваивание строке значения типа char

 

[andreery]

program Серебряный_Ёж;
var
s: string[50];
i, k: integer;

begin
write('Введите строку: '); readln(s);
k := 0;
i := 1;
while i