Написать программу в лазарусе. Дана строка. Написать программу, которая находит и заменяет во всей строке цифры от 0 до 9 на слова "ноль", "один", ... "девять". Преобразованную строку вывести на екран.

Var

S:string;

i:integer;

begin

ReadLn (S) ;

i:=1;

While i<=Length (S) do

Begin

if ('0'<=S[i]) and (S[i]<='9') then

Case S[i] of

'0':

Begin

Delete (S, i, 1) ;

Insert ('ноль', S, i) ;

end;

'1':

Begin

Delete (S, i, 1) ;

Insert ('один', S, i) ;

i:=i+3

end;

'2':

Begin

Delete (S, i, 1) ;

Insert ('два', S, i) ;

i:=i+2

end;

'3':

Begin

Delete (S, i, 1) ;

Insert ('три', S, i) ;

i:=i+2

end;

'4':

Begin

Delete (S, i, 1) ;

Insert ('четыре', S, i) ;

i:=i+5

end;

'5':

Begin

Delete (S, i, 1) ;

Insert ('пять', S, i) ;

i:=i+3

end;

'6':

Begin

Delete (S, i, 1) ;

Insert ('шесть', S, i) ;

i:=i+4

end;

'7':

Begin

Delete (S, i, 1) ;

Insert ('семь', S, i) ;

i:=i+3

end;

'8':

Begin

Delete (S, i, 1) ;

Insert ('восемь', S, i) ;

i:=i+5

end;

'9':

Begin

Delete (S, i, 1) ;

Insert ('девять', S, i) ;

i:=i+5

end;

end;

i:=i+1

End;

WriteLn (S) ;

ReadLn;

end.

Для того, чтобы данная программа заработала, нажмите: Файл → создать → простейшая программа.

Если русские буквы отображаются правильно, нажмите правой кнопкой мыши по коду, выберите: параметры файла → кодировка → Ansi (cp1251).