Вывод текста в центре - Pascal ABC

uses crt;//выводим в стандартное окно
var s:array[1..20] of string;
    n,k,i,j:byte;
begin
repeat
write('Количество предложений от 1 до 20 n=');
readln(n);
until n in [1..20];
writeln('Введите ',n,' предложений');
for i:=1 to n do
 begin
  readln(s[i]);
  k:=(80-length(s[i])) div 2;
  for j:=1 to k do
  insert(' ',s[i],1);
  if odd(k) then insert(' ',s[i],1);
 end;
clrscr;
for i:=1 to n do
writeln(s[i])
end.