Дан массив строк Нужно отсортировать эти строки в алфавитном порядке

Если я не ошибаюсь, то можно использовать обычную сортировку пузырьком и для строк.program strsort; var a: array[1… 1000] of string; i,j,n: integer; r: string; beginreadln (n); for i: =1 to n doreadln (a[i]); for i: =1 to n-1 dofor j: =i+1 to n doif a[i]>a[j] then begin r: =a[i]; a[i]: =a[j]; a[j]: =r; end; for i: =1 to n dowriteln (a[i]); end. Попробуй эту, вроде должна работать.