Всем привет. помогите пожалуйста, изменить алгоритм, утраивающую каждую букву в заданном тексте используя процедуру и функцию.

program qwerty;
uses crt;
var st,v:string;
    ch:char;
    i:integer;
begin
clrscr;
writeln('введите текст');
readln(st);
v:='';
for i:=1 to length(st) do
 begin
    if st[i]<>' ' then v:=v+st[i]+st[i]+st[i]
 else
    v:=v+st[i];
 end;
writeln(v);
readln;
end.

М

Используй тэги кода!! Правила Форума, п.5, правила раздела Задачи, п.2 Lapp

Перенеси код утроения символа и оформи, как функцию

А к процедуре что оформить?

А нечего оформлять тут. Программа 10 строк. Код утроения символа еще можно оформить как функцию. А что процедуру впихивать - не вижу. И смысла - тоже не вижу.