Paskal real в матрице

[Fromki]

Подскажите как сделать так, что бы в конечной матрице были вещественные числа? к примеру: 7 делим на 2 получается 3.5, а в программе будет выдавать просто число 3. Так как сделать так,чтобы в итоге выдавало 3.5??
Вот код программы с оформлением:

program lab4;
uses  crt;
Label
   L1,L2;
var
A : array [1..100,1..100] of integer;
j : array [1..100,1..100] of integer;
ch:char;
x, y, q, error:integer;
begin
clrscr;
   window(3,4,70,14);
    writeln('Вашему вниманию представляется программа');
    writeln('которая находит в столбцах матрицы положительные >0 элементы,');
    writeln('подсчета их количества и сумм.);
    writeln('Затем получает новую матрицу, в которой элементы’);
    writeln('будут представлены числами, полученные от деления ');
    writeln('положительных элементов по столбцу на значение конкретного элемента.');
    writeln('Требования:');
    writeln('Элементы матрицы должны быть целыми числами!');
    writeln('Размерность матрицы должна быть не меньше двух,');
    writeln('но и не более ста элементов');
    window(42,15,75,23);
    writeln(‘Программу составил студент’);
    writeln('*************');
    window(1,1,75,25);
    gotoxy(20,24);
    writeln('для продолжении нажмите любую клавишу ');
    Ch:=readkey;
    L1:Clrscr;
repeat
    write('Введите размерность матрицы: ');
    {$I-}
    readln(q);
    error:=IOResult;
    {$I+}
    If(error<>0) or (q>100) or (q<2) then
    writeln('Ошибка ввода размерности’);
    until(error=0) and (q<=100) and (q>=2);
    writeln('Введите матрицу:',q,' столбца(ов) и ',q,' строк(и)');

for y:=1 to q do
begin
for x:=1 to q do
 begin
{$I-}
repeat
 read (A[y,x]);
         error:=ioresult;
         {$I+}
         If ( A[y,x] > 99) or (A[y,x] < -99) or (Error <> 0)  then
          writeln('ошибка ввода элемента матрицы’);
      until ( A[y,x] <=99) and ((A[y,x] >=-99) and (Error = 0));
     Readln;
     end;
     end;
     clrscr;
   writeln(‘Исходная матрица’);
     y:=0;
   while y < q do
    begin
       x:=1;
       j[y+1,1]:=0;
       j[y+1,2]:=0;
      repeat
     if A[y+1,x]>0 then
        begin
     j[y+1,1]:=j[y+1,1]+ A[y+1,x];
     j[Y+1,2]:=  j[Y+1,2]+1;
        end;
      inc(x);
      until x>q;
     y:=y+1;
    end;
    writeln('');
   y:=1;
   repeat
     for x:=1 to q do
       begin
   if  (y=1)  then
        write('_____')
       else
   if  (y>q+1)  then
        write('-----')
         else
        begin
           if A[x,y-1] > -1 then
                write(' ');
        write(A[x,y-1]);
        write(' | ');
         end;
        end;
       writeln;
       inc(y,1);
    until (q+2<y);

    for x:=1 to q do
      begin
      write(' ');
 write(j[x,1]);
        write(' | ');
      end;
 writeln(' сумма элементов >0');
     for x:=1 to q do
      begin
   write(' ');
 write(j[x,2]);
        write(' | ');
      end;
 writeln(' количество элементов >0');

for x:=1 to q do
for y:=1 to q do
if A[x,y]<>0 then
A[x,y]:= j[x,1] div A[x,y];
 writeln;

   writeln(‘Полученная матрица’);
   x:=0;
   repeat
     inc(x,1);
     for y:=1 to q do
     begin
       if  (x=1)  then
         write('_____')
         else
   if  (x>q+1)  then
        write('-----')
         else
        begin
     if A[y,x-1] > -1 then
                write(' ');
     write(A[y,x-1]);
     write(' | ');
        end;
     end;
     writeln;
   until q<(x-1);
begin
  writeln;
  writeln('Хотите повторить? <Y/N)');
       L2:
           Case Readkey of
           #89: Goto L1;
           #121: Goto L1;
           #78: Exit;
           #110: Exit;
       End;
       Goto L2;
readln;
readln;
end;
end.

[Mad_Cat]

var
A : array [1..100,1..100] of real;
j : array [1..100,1..100] of real;

и div замените на /

[Fromki]

Ошибка 96 и указывает на j : array [1..100,1..100] of real;

[Mad_Cat]

Ошибка 96 и указывает на j : array [1..100,1..100] of real;

а у меня не ругается)

[Fromki]

все равно не работает

[Fromki]

кто-нибудь может помочь?

[Fromki]

ошибка и все

[Fromki]

Все я разобрался, просто надо было задать новую матрицу