Developing.ru

памагите правельно написать программу не получается описание написать в бшем начало
program 12:
var
i.s:integer;
begin
iCurrSymbNum := Length (S);
while (iCurrSymbNum > 0) do
begin
if (S [iCurrSymbNum] = C) then
Insert (S0, S, iCurrSymbNum);
Dec (iCurrSymbNum);
end;

что это у тебя за программа!? для чего она вообще?

Не определена переменные C, S0
Не помню, в Паскале insert - это процедура или функция, если функция - надо присвоить значение ее какой-нибудь переменной.
В разделе описаний вместо i.s написать i,s.
Функция Length работает для переменной типа string, для integer не пойдет.
В общем, написанная с кучей ошибок программа "Вставить в строке после каждого вхождения символа C строку S0"

Хыиуду, S по смыслу написанного, string, а не integer.
Insert в Паскале - процедура.

Insert (procedure)
=====================
Inserts a substring into a string.

Declaration:
procedure Insert(Source: String; var S: String; Index: Integer);

Target:
Windows, Real, Protected

Remarks:
Source is a string-type expression. S is a string-type variable of any length. Index is an integer-type expression. Insert inserts Source into S at the Indexth position. If the resulting string is longer than 255 characters, it is truncated after the 255th character.