В чём ошибка (?)

[RENXFIL]

Пишет [Aref_progres_Luz.pas(389,4) Error: Wrong number of parameters specified for call to "filtr_text"]
На строке [filtr_text(b,c,d,e,f,g,h,i,j,mem_sys,mem_cisla);]
Free Pascal Lazarus Project Версия #: 0.9.30
Дата: 2011-03-08
Версия FPC: 2.4.2
Ревизия SVN: 29749
i386-win32-win32/win64
Полностью код, не выставил, так как очень длинный
Мне кажется, что что-то не совместилось с Array и процедурой, и как это поправить, что то не так написал (?!)

Код: Выделить всё

program Aref_progres_Luz_(v1_,_010);
 {$mode objfpc}{$H-}
 uses DOS,CRT,Windows,renxfiltrus,RenWin;
 {$IFDEF UNIX}{$IFDEF UseCThreads}
 cthreads,
 {$ENDIF}{$ENDIF}
 var a: 000..511;
    b,c: char;
    d: string;
    e,f,g,h,i: byte;
    j: bytebool;
 type mem_sys = array[001..255] of byte;
     mem_cisla = array[001..256] of extended;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
procedure filtr_text(sim,si1: char; str: string; pz1,pi1,pi2,pi3,pz2: byte; n0d: bytebool; aja,ana: mem_sys; ala: mem_cisla); 
 var aba,aca: 3..76;
    ada,aea,afa,aga,aha: string[5];
    aia,aka,ama: byte;
    aoa: char;
 begin
  sim:=readkey;
  if (sim=chr(13)) or (sim=chr(27)) then exit;
  if sim=chr(8) then ~
 ~
 end;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
begin
  clrscr;
  ~
  GotoXY(03,06); write('>');
  while a<=511 do
  begin
   filtr_text(b,c,d,e,f,g,h,i,j,mem_sys,mem_cisla);  {<< ОШИБКА}

  end;
  readln;
 end.

[haword]

а ты просто переведи что тебе компилятор пишет а не сам выдумывай.

[RENXFIL]

Работает =)
Спасибо, не до думал =)
Всё исправил ))

Код: Выделить всё

[code]program Aref_progres_Luz_(v1_,_010);
 {$mode objfpc}{$H-}
 uses DOS,CRT,Windows,renxfiltrus,RenWin;
 {$IFDEF UNIX}{$IFDEF UseCThreads}
 cthreads,
 {$ENDIF}{$ENDIF}
 type mem_sys = array[001..255] of byte;
     mem_cisla = array[001..256] of extended;
 var a: 000..511;
    b,c: char;
    d: string;
    e,f,g,h,i: byte;
    j: bytebool;
    K,L: mem_sys;
    Z: mem_cisla;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
 procedure filtr_text(sim,si1: char; str: string; pz1,pi1,pi2,pi3,pz2: byte; n0d: bytebool; aja,ana: mem_sys; ala: mem_cisla);
 var aba,aca: 3..76;
    ada,aea,afa,aga,aha: string[5];
    aia,aka,ama: byte;
    aoa: char;
 begin
  sim:=readkey;
  if (sim=chr(13)) or (sim=chr(27)) then halt;
  if sim=chr(8) then ~
 ~
 end;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
begin
  clrscr;
  ~
  GotoXY(03,06); write('>');
  while a<=511 do
  begin
   filtr_text(b,c,d,e,f,g,h,i,j,K,L,Z);

  end;
  readln;
 end.[/code]