блок схема к заданию с кодом

[ОльгаНик]

Помогите разобраться пожалуйста с эти заданием...

Задание такое :
Дана строка символов. Группы символов, разделенные одним
или несколькими пробелами и не содержащие пробелов внутри себя,
будем называть словами. В каждом слове найти номера первой и
последней по порядку запятой и записать в вектор разность между
этими номерами
есть код
Program lab;
uses crt;
var
s, l: string;
i, min, max: integer;

begin
readln(s);
s := s + ' ';
while s <> '' do
begin
max := 10000;
min := 0;
for i := 1 to pos(' ', s) do
begin
l := copy(s, i, 1);
if (l = ',') and (i < max) then
max := i;
if (l = ',') and (i > min) then
min := i;
end;
delete(s, 1, pos(' ', s));
if (max - min) <> 10000 then
writeln(max - min);
end;
end.

[Utkin]

Я могу посоветовать Вам (бесплатно) - найти программку, которая умеет переводить код в блок-схему. Таких есть. Второй вариант - подать объявление во Фрилансе, заплатить денежку и получить нужное.