Удалить коментарии

[Snake08]

Дан текст некоторой Паскаль- Программы. Ваша задача состоит в том, чтобы удалить из нее все комментарии и пустые строки. Как известно, комментарий в Паскаль- программе - это текст, который записан в фигурных дужках - {}, или в круглых дужках со звездочкой - (* *). Длина строки программы не может превышать 128 символов. Комментарий может занимать как часть строки, так и несколько строк программы. Вложенные комментарии в тексте отсутствуют.
Входные данные:
В файле Z2.dat содержится текст программы по комментариями.
Исходные данные:
В файл Z2.sol записать текст программы без комментариев. Пустые строки в файл не записывать.
Пример:
Z2.dat:
var
i:integer;{index }
a:array[1..10] of real; (*massiv*)
begin {rozvjazok
zadachi} for i:=1 to 10 do a[i]:=i;
{vyvid massiva} for i:=1 to 10 do
writeln(a[i]);
(*vse*)
end.

Z2.sol:
var
i:integer;
a:array[1..10] of real;
begin
for i:=1 to 10 do a[i]:=i;
for i:=1 to 10 do
writeln(a[i]);
end.

[Snake08]

Ну помогите хто нибудь! Пожалуста!