Создать графическую оболочку

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
var s,s1:string;
    a:array[1..255] of byte;
    i,j,k,n:byte;
begin
writeln('Введите текст');
read(s);
n:=length(s);
for i:=1 to 255 do
a[i]:=0;
i:=1;
while i<=n do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  j:=i;
  k:=0;
  while (j<=n) and not(s[j] in rz) do {пока не разделитель и не конец строки}
   begin
    k:=k+1;{считаем буквы в слове}
    j:=j+1;{идем вперед}
   end;
  inc(a[k]);{увеличиваем на 1 элемент с номером=длине слова}
  i:=i+k;{перепрыгиваем}
 end
else i:=i+1;
writeln('Длина слова   Количество слов');
for i:=1 to 255 do
if a[i]<>0 then writeln(i:5,a[i]:14);
end.

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
var s,s1:string;
    a:array[1..255] of byte;
    i,j,k,n:byte;
begin
writeln('Введите текст');
read(s);
n:=length(s);
for i:=1 to 255 do
a[i]:=0;
i:=1;
while i<=n do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  j:=i;
  k:=0;
  while (j<=n) and not(s[j] in rz) do {пока не разделитель и не конец строки}
   begin
    k:=k+1;{считаем буквы в слове}
    j:=j+1;{идем вперед}
   end;
  inc(a[k]);{увеличиваем на 1 элемент с номером=длине слова}
  i:=i+k;{перепрыгиваем}
 end
else i:=i+1;
writeln('----------------');
writeln('Длина слова    |');
writeln('----------------');
writeln('Количество слов|');
writeln('----------------');
k:=0;
for i:=1 to 255 do
if a[i]<>0 then
 begin
  k:=k+1;
  gotoXY(17+(k-1)*4,3); write('----');
  gotoXY(17+(k-1)*4,4); write(i:3,'|');
  gotoXY(17+(k-1)*4,5); write('----');
  gotoXY(17+(k-1)*4,6); write(a[i]:3,'|');
  gotoXY(17+(k-1)*4,7); write('----');
 end;
end.