Строковые переменные в паскале

[Хомяк!!!!!]

Нужна помощь в решении задачи....
Задача звучит так: Удвоить все пробелы в строке!!!!!
Желательно листинг программы......

[Sazary]

Посмотрите тут:
http://programmersforum.ru/showthread.php?t=43479
Потом составьте программу. Если будут конкретные вопросы - спрашивайте.

[__STDC__]

var 
	a:string;
	i:integer;
begin
readln(a);
i:=1;
while i<length(a) do begin
	if a[i] = ' ' then begin
		insert(' ',a,i);
		inc(i);
	end;
	inc(i);
end;
writeln(a);
end.

или же так

var 
	a:string;
	i:integer;
begin
readln(a);
for i:=length(a) downto 1 do
	if a[i]=' ' then insert(' ',a,i+1);
writeln(a);
end.