помогите, плиз, разделить на процедуры и функции...

[bifshtex]

uses crt;
const n1=100;
type tochka=record
     x,y:real
     end;
var
ms:array[1..n1] of tochka;
i,n:byte;
min,r:real;
begin
clrscr;
writeln('Введите кол-во точек<=',n1);
readln(n);
randomize;
for i:=1 to n do
 with ms do
 begin
 x:=(random(20)-8)/10;
 y:=(random(20)-8)/10;
 writeln(x:6:2,' ',y:6:2);
 end;
min:=sqrt(sqr(ms[1].x)+sqr(ms[1].y));
for i:=2 to n do
 with ms do
 begin
 r:=sqrt(sqr(x)+sqr(y));
 if r<min then min:=r
 end;
 writeln('min rasstiyanie=',r:6:2);
readln
end.

[InfStudent]

Ввод данных это одна прроцедура, вычисления это еще одна . В чем проблема конкретней?

[InfStudent]

Передать массив в функцию можно, определив новый тип данных и соотв переменную:
type
massiv=array of integer;для динам.
и  type
massiv=array[1..5] of integer;для фиксированных

[bifshtex]

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

[InfStudent]

Что с ними не дружить то, написал нужные параметры и тип возвратного результата и порядок:
function example(x:integer;y:integer):integer;
begin
example:=x+y;
end;
И вызов ее:
var
chis1,chis2,chis3:integer;
begin
....
chis3:=example(chis1,chis2)
....
end;
Важно чтобы результат работы функции возвращался через оператор присвоения с ее названием

[bifshtex]

спасибо за инфу, ща значит сделаю)

[InfStudent]

procedure Example (x:integer;y:integer;var z:integer);
begin
z:=x+y;
end;
вызов:
var
x,y,z:integer;
begin
Example (x,y,z);
end;
Процедура возвращает результат работы через переменные с меткой var(в списке параметров)

[InfStudent]

Надо будет FAQ по синтаксису и элементарным приемам pascal написать)