Здраствуйте.Помогите сделать блок-схемы к задачам очень прошу

Приложение:
Задача 1.
uses crt,My_Modul;
const s1:string='ЭВМ';
var s:string;
j,n,k:byte;
begin
clrscr;
repeat {в цикле проверяем правильность ввода}
writeln('Введите последовательность, в конце точка:');
readln(s);
if pos('.',s)=0 then writeln('В строке нет точки, повторите ввод!');
until pos('.',s)>0; {если точку нашли, заканчиваем проверку}
for n:=1 to length(s1) do
EVM(s,s1[n],k); {вызываем процедуру поиска и подсчета нужных символов}
readln
end.

Задача 2.
uses crt,My_Modul;
var N:Longint;
begin
clrscr;
repeat
write('N=');readln(N);
until (N div 1000>=1)and(N div 1000<=9); {проверяем, что число 4-х значное}
if RazCif(N) then write('Все цифры разные!'){вызываем функцию проверки}
else write('Не все цифры разные!');
readln
end.

Задача 3.
uses crt,My_Modul;
var a:Tmas;
i,K:word;
begin
clrscr;
randomize;
for i:=1 to r do
begin
a[i]:=random(50)+1;{наполняем массив случайными натуральными числами от 1 до 50 и выводим его на экран}
write(a[i],' ');
end;
writeln;
write('K=');readln(K); {вводим делитель}
write ('Сумма чисел, кратных ',K,'=',Summ_El(a,k));{вызываем функцию}
readln
end.