prog;

begin
  var a : array [5] of string;
  var b : array [5] of int

  a[0] := "a";
  a[1] := "b";
  a[2] := "casdfasdfsfasdfdsf";
  a[3] := "abcdefghijklmnopqrstuvwxyz";
  a[4] := "a quick brown fox jumps over a lazy dog";

  b[0] := 2;
  b[1] := 5;
  b[2] := 9;
  b[3] := 15;
  b[4] := 0;

  write a - b;
  write a - b - b - b;

end;
end prog