написать блок схему.

[Rus18]

Вот текст программы.

var
i:Integer;
begin
for i:=1 to 20 do
case Edit1.Text[i] of
'.':Inc(pnt);
' ':Inc(space);
'Д':Inc(D);
end;
ShowMessage(IntToStr(pnt)+' точек, '+IntToStr(space)+' пробелов, '+IntToStr(D)+' букв Д');
end;
end.


Заранее Спасибо!

[Vanta11a]

Ну так напишите, тем более что программа есть.