Matematické Fórum

Zdravím
potřeboval bych pomoc s tímto zadáním algoritmu v delphi: Na vstupu je dáno číslo N a za ním následuje soubor N celých čísel. Sestavte program, který tato čísla vytiskne a zjistí, kolikrát se v číslech daného souboru vyskytla číslice 1 a číslice 9.

Mělo by se jednat o čtvercovou matici ( kterou mám už sestrojenou), ale nvm jak zjistit počet 1 a 9. Zkoušel jsem to pomocí div, mod, ale ty fungují pouze na čísla typu integer.
Zde přikládám svou vytvořenou matici.  Předem děkuju za jakoukoli pomoc. :)


var
   A:array [1..10000,1..10000] of real;
   N,i,j:Integer;
begin
  WriteLn('Zadejte pocet prvku');
  ReadLn(N);
  WriteLn('Zadejte posloupnost');
  for i:=1 to N do
    for j:=1 to N do
      ReadLn(A[i,j]);
  for i:=1 to N do
  begin
    for j:=1 to N do
      write(A[i,j]:7:0);
    WriteLn;
  end;
  ReadLn;
end.