Pascal/Turbo Pascal - ayuda!procedimiento_funciones

necesito un programa(no importa de que trate) que contenga procedimiento y funcion... les suplico que me ayuden si tienes un ejercicio me lo publican... se los agradecria mucho...gracias

var
i: byte;
Sumandos: Array [1..2] of integer;

procedure PedirDato(Nro: byte; var Dato: integer);
begin
Write('Ingrese el dato ',Nro,':');
ReadLn(Dato);
end;

function Sumar(Dato1, Dato2: integer): integer;
begin
Sumar:=Dato1+Dato2;
end;

begin
for i:=1 to 2 do
PedirDato(i, Sumandos[i]);
Write('La suma es ',Sumar(Sumandos[1], Sumandos[2]));
end.

Hecho.