Сделать блок-схему по имеющемуся коду Pascal

program DauMoH;

const
n = 25;

type
mas = array[1..n] of real;

var
a: mas;
i, g: byte;
k: real;

begin
randomize;
write('Оригинальный:');
for i := 1 to n do
begin
a[i] := Random;
write(a[i]:6:2);
end;
K := a[1];
for i := 1 to n do
if a[i] < k then
begin
k := a[i];
g := i;
end;

writeln; write('Полученный: ');
a[g] := a[1];
a[1] := k;
for i := 1 to n do
write(a[i]:6:2);
readln;

end.