Составить программу, которая будет выводить на весь экран слово МИР, используя символ(*) — Pascal(Паскаль)

uses crt;
var x,i,j:byte;
begin
clrscr;
x:=1;
for i:=1 to 24 do
for j:=x to x+23 do
if(j=x)or(j=x+23)or((i<=12)and((j=i+x-1)or(j=x+24-i))) then
 begin
  gotoXY(j,i);
  write('*');
 end;
x:=28;
for i:=1 to 24 do
for j:=x to x+23 do
if(j=x)or(j=x+23)or(j=x+24-i) then
 begin
  gotoXY(j,i);
  write('*');
 end;
x:=55;
for i:=1 to 24 do
for j:=x to x+23 do
if(j=x)or(i=1)or(i=12)or((i<=12)and(j=x+23)) then
 begin
  gotoXY(j,i);
  write('*');
 end;
readln
end.