Напишите программу (Паскаль): выводится 5 строк…

Uses crt; const n=5; var s: array[1… n] of string; i,j,c: integer; ss: string; beginwriteln ('Введите: '); for i: =1 to n do begin write ('s[',i,']='); readln (s[i]); end; for i: =1 to n-1 dofor j: =i+1 to n doif s[i]>s[j] then begin ss: =s[i]; s[i]: =s[j]; s[j]: =ss; end; for i: =1 to n dowriteln (i,'.',s[i],'); end.