Составить программу маленькой вращающейся стрелки. в паскале. используя массивы состоящий из 4-х символов |,/

uses
  CRT;

var
  a: array [1..4] of char;
  i: integer;

begin
  i := 1;
  a[1] := '|'; a[2] := '/'; a[3] := '-'; a[4] := '\';
  while (true) do
  begin
    ClrScr();
    Write(a[i]);
    if (i = 4) then
      i := 1
    else
      inc(i);
    Sleep(250);
  end;
end.