title: Syntax error, ";" expected but identifier OBRADA" found, error in function but don't understand why
body: <p>Syntax error, ";" expected but identifier OBRADA" found, error in function but  don't understand why.. How come only happens to the second function but not in the first ? 
  And could someone tell me if I used Delete correctly in this code ?</p>
  
  <p>I had to make a program that counts integers in a string, and if 2 integers are the same remove all the duplicates of that integer. Write the new string, and the number of duplicate that has appeared most times... Could I have done it possibly easier then this ? 
  Thanks in advance !</p>
  
  <pre><code>Program Zad_Septembar1_2013;
  
  Const
    max = 100;
  
  Type
    niz = array[1..100] Of integer;
  
  Var A: niz;
  
  Function citaj(Var A:niz;Var n:integer): boolean;
  Var
    i: integer;
  Begin
    citaj := true;
    writeln('Unesite duzinu niza');
    readln(n);
  
    If (n&gt;0) And (n&lt;=max) Then
      Begin
        For i:=1 To n Do
          Begin
            writeln('Unesite', i ,'. cifru');
            readln(A[i]);
          End     ;
      End;
  
    Function obrada(Var A:niz; Var n,q,s:integer): integer;
    {Here I get an error but i don't understand why}
    Var
      p,m,i: integer;
    Begin
      m := 0;
      q := 0;
      p := 0;
      s := 0;
      For i:=1 To n Do
        Begin
          p = A[i];
  
          For i:=1 To n Do
            Begin
              If (A[i]=p) Then
                Begin
                  m := m+1;
                  Delete(A[i]); {Did i use delete correctly ?}
  
                End;
            End;
  
          If (m&gt;s) Then
            Begin
              s := m;
              q := p;
            End;
        End;
    End;
  
    Procedure ispis(Var A:niz; q,s:integer);
    Var
      g: integer;
    Begin
      g := length( A );
  
      For i:=1 To go Do
        write(A[i]);
  
      writeln('Broj pojavljivanja u nizu je: ',s);
      writeln('Broj koji se pojavljuje je:', q);
  </code></pre>