Pascal/Turbo Pascal - Procedimientos, funciones y registros, ayuda!

Hola gente, tengo que rendir un parcial para la facultad en Free Pascal, donde tengo que crear un programa que resuelva algun tipo de problema (tengo ejemplos de lo que me piden) usando procedimientos y funciones con pasaje de parámetros y registros, la verdad es que tengo una idea muy vaga de todo esto, pero preguntas muy puntuales, es decir, los problemas no son de alta complejidad, si alguien me puede ayudar me podría mandar un correo electrónico? lo que me cuesta es saber como usar los registros con la estructura With_Do, como ir cargando los datos y luego en procedimientos y funciones el pasaje de parámetros.

gracias!
mi mail es [email protected]

el 30 rindo! gracias!

{Espero que esto te sea de ayuda si es alguna otra cosa dímelo y intentare entender tu solicitud
mejor}

program registros;
uses
crt;
type
regdatos = record
nombre : string[30];
edad : integer;
ciudad : string[30];
end;

var
datos : regdatos; {variable regidatos}
freg : file of regdatos; {variable de fichero regdatos}
nu : integer;


procedure entrada_datos_1;
begin
with datos do {Entrada datos Con sentencia with}
begin
writeln('Nombre : ');
readln(nombre);
writeln('Edad : ');
readln(edad);
writeln('Ciudad : ');
readln(ciudad);
end;
end;

procedure entrada_datos_2;
begin {Entrada datos Sin sentencia with}
writeln('Nombre : ');
readln(datos.nombre);
writeln('Edad : ');
readln(datos.edad);
writeln('Ciudad : ');
readln(datos.ciudad);
end;
{La sentencia with es una forma abreviada como ves para referenciar los
registro}

function pasa_nombre : string; {Funcion paso dato a datos.nombre}
var
pasa : string;
begin
readln(pasa);
pasa_nombre := copy(pasa,1,length(pasa));
end;



procedure entrada_datos_3; {aqui}
begin
writeln('Nombre : ');
with datos do
nombre := pasa_nombre; {la funcion pasa_nombre pasa en dato }
{entrado a datos.nombre}
writeln(datos.nombre);
end;


procedure pasadatos(var num : integer); {Pasamos el numero nu para}
var {la multiplicaciom}
ed : integer;
begin
ed := 20;
writeln('Resultado es : ',num * ed);
end;



begin
clrscr;
entrada_datos_1;
writeln;
entrada_datos_2;
writeln;
entrada_datos_3;
nu := 2;
pasadatos(nu);
readln;
end.