Паскаль... Обработка литерных величин...

[Сеня]

program nnm;
uses crt;
type str=string[50];mass=array [1..20]of str;
var s,s1,s2,s3:str;i,j,k,l,n:integer;x: mass;
procedure printmass(k:integer;x:mass);
var i:integer;
begin
clrscr;
for i:=1 to k do writeln(x[i]);
end;
begin
writeln('vvesti stroku');
readln(s);
slova(s,n,x);
printmass(n,x);
end.



Пожалуйста, здесь надо изменить процедуру так, чтобы вводился массив слов, очищался экран и печатался введенный массив в столбик
по два в строку с выравниванием по серединам слов.
... Спасибо, Я.

[maladoy]

procedure printmass(k:integer;x:mass);
var i:integer;
begin
clrscr;
for i:=1 to k do begin
if (i mod 2=1) then writeln;
write(' ' x[i]);
end;

procedure vvodmass(k:integer;x:mass);
var i:integer;
begin  
for i:=1 to k do readln x[i];
end;

[Сеня]

Спасибо!!!