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

[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]