pascal funkcia, array

function funkcia(x,y:integer) : string //namiesto string array
...

uses crt;

type pole = array[1..20] of integer;

var
  tmp: pole;
  j: integer;
  p: ^pole;



function myFunction: Pointer;
var
  i: integer;
begin

  for i:= 1 to 20 do
    tmp[i] := i;

  myFunction := @tmp;

end;



BEGIN

  p := myFunction;

  for j:= 1 to 20 do
    write( p^[j], ' ' );

  readln;

END.

type pole = array[0..2] of integer;

function tt : pole;
begin
  result[0] := 0;
end;