Массив из 50 строчных букв. Выстроить по алфавиту.

const n=50; var c: array[1… n] of char; i, j: integer; t: char; begin randomize; writeln ('Исходный массив: '); for i: =1 to n do begin c[i]: =chr (random (32)+224); write (c[i], '); end; writeln; writeln ('Преобразованный массив: '); for i: =1 to n — 1 do for j: =1 to n — i do if c[j] > c[j+1] then begin t: =c[j]; c[j]: =c[j+1]; c[j+1]: =t; end; for i: =1 to n do write (c[i], '); writeln; end.