Нужна блок-схема для программы

[Destox]

Var
f: Text;
i,n,k: Integer;
s: String;
BEGIN
Assign(f,'1.txt');
Rewrite(f);
Write('Введите кол-во чисел: ');
Readln(n);
For i:=1 to n do
Writeln(f,Random(101)-50);
Reset(f);
While not Eof(f) do
begin
Readln(f,s);
If s[1]<>'-' Then
Inc(k);
end;
Close(f);
Writeln('Файл "1.txt" создан');
Writeln('Кол-во положительных = ',k);
END.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.