помогите с блок схем

[motaro]

сделал программу, не знаю как сделать блок схему

Из заданного в программе текста выбрать цифры и записать в числовой массив M.

program var_18_4_1;
uses crt;
var M:array [1..500] of integer; {Массив для хранения цифр}
    s:string; {Переменная для хранения текста}
    num:string; {Для хранения числа в строке}
    i,j,err:integer;
begin
 ClrScr;
 write ('Введите текст: '); readln (s); {Ввод текста}
 for i:=1 to length (s) do begin
  for j:=0 to 9 do begin
   Str (j,num); {Перевод числа j в строку num}
{Если в строке есть число, переводим его в числовой тип и записываем в массив}
   if s[i]=num  then Val (s[i],M[i],err);
  end;
 end;
 write ('Цифры в тексте: ');
{Вывод цифр, содержащихся в строке}
 for i:=1 to 500 do if M[i]<>0 then write (M[i],' ');
 readln
end.

[Sweta]

Остальные комментарии допишите сами. И проверьте выражения в ромбиках.

[motaro]

спасибо .

[motaro]

Сообщение от Sweta

Остальные комментарии допишите сами. И проверьте выражения в ромбиках.

а что в ромбиках, че-то не увижу

[Sweta]

В ромбах в алгоритме написаны условия. Т.к. Паскаль практически не знаю, то могла ошибиться. К примеру for j:=0 to 9 do я записала j:=j+1<9?, а в действительности может это j:=j+1 =9?

[motaro]

j := 0 to 9 думаю пойдет

[b345t]

program sdgfdfg;
uses crt;
var A:array[1..100] of integer;
b,i,n,k:integer;
begin   clrscr;
k:=0;
repeat
k:=k+1;
until a[k]>0;
b:=A[k];
writeln('введите число элементов');
readln(n);
writeln('введите ',n ,' eлементов');
for i:=1 to n  do readln(a[i]);
begin
If (a[i]>0) and (a[i]<b) then begin b:=a[i] end; end;
writeln(b);
readkey;
end.

[ROMA2PVT]

program sdgfdfg;
uses crt;
var A:array[1..100] of integer;
b,i,n,k:integer;
begin clrscr;
k:=0;
repeat
k:=k+1;
until a[k]>0;
b:=A[k];
writeln('введите число элементов');
readln(n);
writeln('введите ',n ,' eлементов');
for i:=1 to n do readln(a[i]);
begin
If (a[i]>0) and (a[i]<b) then begin b:=a[i] end; end;
writeln(b);
readkey;
end.

И чё надо?

[b345t]

блок схему

[ROMA2PVT]

А зачем делать блок-схему к нерабочему заданию?