Требуется написать блок-схему для программы

Program Sortirovka;
uses    Crt, DOS;
var n,m:integer;                        
    Mtx:array[1..100, 1..100] of char;       
    i,j,k:integer;                      
    Q:char;             
    buf:char;           
    sum:real;       
 
BEGIN
Repeat
    Begin
    ClrScr;
    Writeln('Введите количество строк матрицы n');
    Readln(n);
    Writeln('Введите количество столбцов матрицы m');
    Readln(m);
    ClrScr;
    for i:=1 to n do
    for j:=1 to m do
    begin
    Writeln('Введите ', j, ' букву ', i,' строки');
    Readln(Mtx[i,j]);
    end;
    ClrScr;
    Writeln('для матрицы ', n,'x', m,':');
    for i:=1 to n do
    begin
    for j:=1 to m do
    Write(Mtx[i,j]:2);
    Writeln;
    end;
    Begin
    for i:=1 to n do
    for k:=m downto 2 do
    for j:=1 to k-1 do
    if Mtx[i,j]>Mtx[i,j+1] then
    begin
    buf:=Mtx[i,j];
    Mtx[i,j]:=Mtx[i,j+1];
    Mtx[i,j+1]:=buf;
    end;
    end;
    begin
    Writeln('Отсортированная матрица:');
    for i:=1 to n do
    begin
    for j:=1 to m do
    Write(Mtx[i,j]:2);
    Writeln;
    end;
    end;
    sum:=0;
    for i:=1 to n do
    for j:=1 to m do
    begin
    if i=j then
    sum:=sum+ord(mtx[i,j]);
    end;
    sum:=sum/n;
    Writeln('Среднеарифметическое кодов по главной диагонали = ', sum:6:2);
    Writeln;
    Writeln('Выйти? y/n');
    Readln(Q);
    end;
Until Q='y';
END.