Процедуры.

[Olalya da Silva]

нужно заменить выделенное курсивом процедурами

Program Stroka;
const max=50;
var
a,b: array [1..max] of char;
i,j,k,n: byte;
begin
i:=0;
repeat
i:=i+1;
read(a[i]);
until a[i]=#13;
k:=i-1;
n:=1;
for n:=1 to k do
begin
case a[i] of
'0': begin
b[n]:='n';
b[n+1]:='o';
b[n+2]:='l';
n:=n+3;
end;
'a': begin
b[n]:='o';
n:=n+1;
end;
else begin
b[n]:=a[i];
n:=n+1;
end;
end;
end;
for j:=1 to n do
write(b[j]);
end.