:*дан двумерный массив вывести на экран все элементы n-й строки массива паскаль

Var a: array [1..8,1..8] of integer;           j,k,n: integer; begin   randomize;   for j: =1 to 8 do       begin           for k: =1 to 8 do               begin                   a[j,k]: =random(9)+1;                   write (a[j,k]: 2);               end;           writeln;       end;   repeat       write ('n = ');       readln (n);   until n in [1..8];   for j: =1 to 8 do write (a[n,j]: 3);   writeln;   readln; end.

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.