Ročníková práce – Pascal – Fórum – Programujte.com

Dobrý den, moc Vás prosím o pomoc, dostal jsem zadanou úlohu "9 matici MxN naplnit náhodnými čísly od 1do9, urči která hodnota se vyskytla nejčastěji a kolikrát to bylo, zobraz matici" a vytvořil jsem něco v Pascalu, jenže tam jsou 2 chyby. Dokázali byste to opravit, aby to bylo funkční, popřípadě říct v čem jsem udělal chybu?

program matice;
uses crt,sysutils;
var matice: array [1..30,1..30] of Integer;
    cetnost: array [1..9] of Integer;
    i,m,n,p,lenght: Integer;
    s,sp: String;
procedure Vypis;      
var i,j: Integer;     
begin
  WriteLn(' Vypis matice');
  WriteLn;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      matice[i,j] := Random(9)+1;
      Write(matice[i,j]:2);
      Inc(cetnost[matice[i,j]]);
    end;
    WriteLn;
   end;
end;
begin
  Randomize;
  Write(' Zadej pocet radku: ');
  ReadLn(m);
  Write(' Zadej pocet sloupcu: ');
  ReadLn(n);
  WriteLn;
  Vypis;
  p := cetnost[1];       
  for i := 2 to 9 do
    if cetnost[i]>p then  
      p := cetnost[i];    
  sp := '';
  for i := 1 to 9 do      
    if cetnost[i]=p then  
      sp := sp+IntToStr(i)+','; 
  if Length(sp)>2 then          
    s := 'vyskytuji hodnoty '   
  else                          
    s := 'vyskytuje hodnota ';  
  WriTeLn;
  WriteLn(' Nejcasteji se ',s,sp,' a to ',p,'x.');
  ReadLn;
end.

Děkuji pěkně za jakoukoliv pomoc! 

prekvapive to hlasi:  Error: Duplicate identifier "matice"

takze minimalne prejmenovat program na neco jinyho nez matice.. nebo zmenit nazev toho pole z matice na neco jineho

No samozrejme pominu zmatecny nazev procedury Vypis, ktera nedela jen vypis, ale i naplneni a pocitani cetnosti...

Máte tedy nějaký nápad jak to "fixnout" ? Děkuji.

#5 KIIV
Špatně jsem to pochopil, děkuji za pomoc.