Работа со строками

[alexey9999]

1)Вывести строку, замещая цифры их словесными значениями.(через массив)
2)(не относится к первому)Удалить из текста последнюю строку.Вывести текст.

[ZX Spectrum-128]

1.

For i:=1 to length(s) do
  If s[i] in '0'..'9' then
    Begin
      K:=strtoint(s[i]);
      Case k of
      0: write('ноль');
// остальные цифры аналогично
      End;
    End
      Else
        Write(s[i]);

[Poma][a]

If s[i] in '0'..'9' then

Неа..
'0'..'9' - это тип отрезок!
['0'..'9'] - это множество!

K:=strtoint(s[i]);
      Case k of
      0: write('ноль');

А зачем переводить-то? Просто '0' : write..
Или более красивый вариант

const

     <..> : array ['0'..'9'] of string = ('нуль', 'единичка', ..);
Write (a[s[i]]);

[ZX Spectrum-128]

Или более красивый вариант

Ооооо, спасибо!

Автору вопрос. А как дан текст во 2-й задаче? В текстовом файле?