Помогите с турбо паскалем(РЕШЕНО)

переведи на русский, и завтра как сдам физику сделаю если раньше никто не сделает

http://vkontakte.ru/club5862140
Написание программ на языке Pascal – быстро и недорого

http://vkontakte.ru/club105253
Программисты PASCAL

http://vkontakte.ru/club2130
PasCaL FoReVeR!!!!

Перевод:

Ввести любой текст.
В нем удалмть все символы (,)и подсчитать длину получившегося текста.

легко же. за "зачетку" подарок могу ))) но только если не срочно – завтра. ибо щас учу физику

Мне тоже на завтра нужно)

http://pastebin.ca/1769816

моя проще )

var str: string;
i: integer;
newstr: string;

begin

readln(str); {vvodim stroky}
newstr:=''; {obnylyaem novuyu}

for i:=1 to length(str) do {cikl po kaghdomy simvolu iz stroki}
if str[i]<>',' then {esli simvol NE zapataya}
newstr:=newstr+str[i]; {kopiruem ego v novuyu stroku}

writeln(newstr); {vivodim novuyu stroku}
writeln(length(newstr)); {vivodim dlinu novoy stroki}

readln; {zaderzhka, mozhno udalit'}

end.

Спасибо Никита µαιηηιкα Токарчук