Как преобразовать цыфры в буквенное их выражение

[Hacker19_90]

а пример можно?

[Makspane]

Сообщение от Hacker19_90

а пример можно?

ну напривер в вхлдном написано ( сего будем читать 1. Завра будем 2 ходить. Сегодня холодно) а должно відать
сегодня будем читать один.(новая строка сначала)
завтра будем два ходить.
сегодня холодно.
ну каждое новое предложение с новой строки)

[Hacker19_90]

у вас консольная программа или визуальная?

[Makspane]

Сообщение от Hacker19_90

у вас консольная программа или визуальная?

у меня просто задача лабораторная, я не знаю какая она, мне надо просто чтоб она віполняла єто действие)))))можешь помочь?

[Человек_Борща]

Не ищите тут халявы. Пора и четь знать. Вам дали пример кода, которым это можно делать.

Не хотите писать сами или искать решение в гугле - идите во фриланс, там вам помогут.

[Hacker19_90]

можешь помочь?

ДАк а чем? если я не знаю куда выводить
Консоль

for i := 1 to length(s) do
  if s[i] = '.' then
  begin
    WriteLn(s[i]);
  end
  else
    Write(s[i]);

Визулка
Допутим в Мемо

while pos('.', s) <> 0 do
begin
  Memo1.Add(Copy(s, 1, pos('.', s)));
  Delete (s, 1, pos('.', s));
end;

как то так

[Makspane]

Сообщение от Hacker19_90

ДАк а чем? если я не знаю куда выводить
Консоль

for i := 1 to length(s) do
  if s[i] = '.' then
  begin
    WriteLn(s[i]);
  end
  else
    Write(s[i]);

Визулка
Допутим в Мемо

while pos('.', s) <> 0 do
begin
  Memo1.Add(Copy(s, 1, pos('.', s)));
  Delete (s, 1, pos('.', s));
end;

как то так

вывести либо в лист бох либо в сам текстовый файл...

[Makspane]

Спасибо))) работает))