Pascal. Распечатка символов.

[TOSAgrk]

В языке паскаль комментарии ограничиваются фигурными дужками. Написать программу которая изымает комментарии и добавляет вместо них символ "пробил" (чтобы "1{один}2" превращалось не в "12" а в "1 2". Начальный текст считать один раз символ за символом. Также полученный текст печатать символ за символом.

[pomoshnic]

Нужно читать код по символу, если символ = '{', тогда увеличиваем значение переменной на 1 и записываем в исходный файл пробел, если символ ='}', тогда уменьшаем значение переменной на 1, иначе если переменная = 0, тогда записываем в исходный файл символ из первого.

[TOSAgrk]

логически я понимал( и понимаю как писать ) а вот код не поддаётся!

много позабыл..

если можна то дайте исходник господа

[начинающий кодер]

program stroka;
uses crt;
var s,s1:string;
k,i:integer;
begin
s1:='';k:=0;
Readln(s);
for i:= 1 to length(s) do begin
if s[i]='{' then k:=1;
if s[i]='}' then k:=0;
if (k=1) then begin s1:=s1+' ';k:=2 ;end;
if (k=0) and (s[i]<>'}') then s1:=s1+s[i];
end;
writeln(s);
for i:=1 to length(s1) do
 writeln(s1[i]);
 readln;
 end.