найдите ошибки пж Паскальprocedure fn(s:string);var i:integer;beginreadln(s);for i to

Найдите оплошности пж Паскаль
procedure fn(s:string);
var i:integer;
begin
readln(s);
for i to length(s) do
begin
if copy(s,i,5)='минус';
then
delite(s,i,5);
insert('плюс',s,i);
end;
end;
var b:string;
begin
write(fn(b));
end.

Тимур Перич 2019-09-24 12:10:49

+ в 5 строке: Встречено 'to', а ожидалось ':'

Жека Стологоров 2019-09-24 12:14:43

в 5 строке ты что желал сделать?

Елизавета Поэль 2019-09-24 12:24:34

Вы в пятой строке не указали изначальное значение i. Это обязано смотреться приблизительно так: for i:= 1 to Length(s) do begin..... Как раз тут и требовалось указать знак двоеточие.