Составить программу маленькой вращающейся стрелки. В паскале. Используя массивы состоящий из 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.