program fjf511;

var
  p: ^String;
  i: Integer;

procedure b (s: String);
begin
end;

procedure q;
begin
    case 1 of
      1: begin
           a, 0);  { WRONG }
           b (p^[1 .. i - 1]);
         end
    end
end;

begin
  case 1 of
    1:
  end
end.
