Получить 36 случайных целых чисел

program prog1;
uses
    crt;
const 
    size = 6;
var
    matrix: array[1..size, 1..size] of integer;
    i, j: integer;
    f: text;
begin
    clrscr;
    randomize;
    assign(f, 'text.txt');
    rewrite(f);
    for i := 1 to size * size do
        write(f, random(21) - 10, ' ');
    close(f);
    assign(f, 'text.txt');
    reset(f);
    for i := 1 to size do
    begin
        for j := 1 to size do
        begin
            read(f, matrix[i, j]);
            write(matrix[i, j] : 4);
        end;
        writeln;
    end;
    close(f);
    assign(f, 'result.txt');
    rewrite(f);
    for i := 1 to size do
        for j := 1 to size - 2 do
            if (matrix[i, j] > 0) and (matrix[i, j + 1] > 0) and (matrix[i, j + 2] > 0) then
            begin
                write(f, i, ' ');
                break;
            end;
    close(f);
    readkey;
end.