Witam, chcę zwrócić tablicę jako wynik funkcji, kod który napisałem uruchamia cmd i je za chwile zamyka pomimo readln; dodanego na końcu.
program tab_f;
{$APPTYPE CONSOLE}
uses
SysUtils;
// procedury i funkcje tu:
type
TIntegerArray = array of Integer;
var
i: integer;
tab: TIntegerArray;
function wypelnij_tab(tablica:TIntegerArray) : TIntegerArray;
var
i:integer;
begin
for i:=0 to 10 do
begin
tablica[i]:=1;
end;
result:=tablica;
end;
begin
wypelnij_tab(tab);
for i:=1 to 10 do
begin
writeln(tab[i]);
end;
writeln('');
readln;
end.