Witam
Mam pewien problem mianowicie nie wiem jak zrobić schemat blokowy do tego programu :
program sortowanie_przez_wybieranie;
uses crt;
var t:array[1..10] of char;
var i,a:integer;
var znak:char;

begin
readln(t);
for i:=1 to 10 do

for a:=(i+1) to 10 do
begin
if (t[i]>t[a]) then
begin
znak := t[i];
t[i] := t[a];
t[a] := znak;
end;
end;
writeln(t);
readkey;
end.


mógłby mi ktoś pomóc , potrzebuje do do zaliczenia a w sprawie robeina schematu jestem zielony
Proszę o pomoc i z góry dziękuje :)