[Pascal]: помогите программу, работающую через функцию, переписать так, чтобы она работала через процедуру

[всё плохо :(]

Есть программа работающая через функцию,помогите,пожалуйста, написать через процедуру

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

 function vLen(v: array of Real);
var
r: Real; j: Integer;
begin
r:=0;
for j:=Low(v) to High(v) do r:=r+Sqr(v[j]); r:=SqRt(r);
  vLen:=r;
end;

const n=2; k=4;
var
  a, b: array [1..n] of Real;
  m, t: Real;
  i, j: Integer;
begin
  WriteLn('enter coordinats ',n,'-mernix vectors (',k,'):');
  for j:=1 to n do Read(b[j]); m:=vLen(b);
  for i:=2 to k do begin
    for j:=1 to n do Read(a[j]); t:=vLen(b);
    if m>t then begin
      m:=t; b:=a;
    end;
  end;
  Write('vector with minimal length44 ',m,': (',b[1]);
  for j:=2 to n do Write(', ',b[j]); WriteLn(')');


  readln;
end.

[p51x]

Может наоборот надо?

[type_Oleg]

Если сначала так:

procedure vLen(v: array of Real);

а внутри вот так:

 vLen:=r;

то это - ошибка.
В самом деле так функции описывают, а не процедуры.

[Вадим Мошев]

Вообще, насколько мне известно, нельзя в подпрограммах формальные параметры-массивы принимать с явным указанием их типа. Необходимо их переопределить через Type:

type
 TArray = array of real;
...
procedure(v: TArray);

[всё плохо :(]

Спасибо,не подскажете куда мне девать результат vLen:=r;.
И ругается на:
for j:=1 to n do Read(b[j]); m:=vLen(b);
и
for j:=1 to n do Read(a[j]); t:=vLen(b);
пишет несовместимые типы Array и TArray

[Вадим Мошев]

Покажите код полностью.

Сообщение от всё плохо :(

И ругается на:

Какую ошибку пишет?

Сообщение от всё плохо :(

пишет несовместимые типы Array и TArray

Так не используйте их вместе. Если у вас теперь массив имеет пользовательский тип TArray, то и используйте его везде.

[type_Oleg]

Если переделали на функцию, то надо указать ее тип, и заменить array of Real на пользовательский тип:

function vLen(v: TArray):Real;

[digitalis]

Мне кажется, материал будет интересен не только ТС. Попытался дать прямую ссылку, что-то режется. Даю выжимку.