Построение блок схем по коду Pascal

[Anton19947]

Построение блок схем по коду Pascal

Дана цифра М. Удалить из записи каждого элемента массива эту цифру.

Var A:array[1..100] of integer;
i,n,m:byte;
Function F(n:integer):integer;
Var s:string;
i,k:integer;
Begin
Str(n,s);
For i:=Length(s) downto 1 do
if s=chr(ord('0')+m) then Delete(s,i,1);
if s='' then F:=0
else
Begin
Val(s,n,k);
F:=n;
End;
End;
Begin
write('Введите размерность массива: ');readln;
writeln('Исходный');
For i:=1 to n do
Begin
A:=random(31)-15;
write(A:4);
End;
writeln;
write('Введите цифру M: ');readln(m);
writeln('Преобразованный');
For i:=1 to n do
Begin
A:=F(A);
write(A:4);
End;
readln;
End.

 

[Léon1]

Дана цифра М. Удалить из записи каждого элемента массива эту цифру.

Блок-схема: