Cтроки pascal

[Trancer_drum]

форумчане, подскажите позжалуйста
Вот например мы вводим последвательность слов (от 1 до 5 букв -длина каждого слова), после каждого слова запятая, за последним -точка.
--Надо вывести на экран эту же последовательность, но в обратном порядке.

[AlexandЯ]

var i,b,c:integer;
x,y,z:string;
begin
readln(x);
b:=length(x);
for i:=length(x)-1 downto 1 do begin
if x[i]=',' then begin
for c:=i+1 to b do begin
y:=y+x[c];
end;
b:=i;
end;
end;
i:=1;
while x[i]<>',' do begin
y:=y+x[i];
i:=i+1;
end;
for i:=1 to length(y) do
if y[i]='.' then y[i]:=',';
y:=y+'.';
writeln(y);
end;

Попробуй вроде этого... Писал на скорую руку, так что дорабатывай

From Stilet: Что код в теги взять рука не поднимается?