Exercicio -Peso maior

Faça um algoritmo e a seguir passe-o para pascal que leia o nome e peso de 10 pessoas e a seguir calcule o maior peso, o mais leve, e a média de peso. Escreva o nome da pessoa com maior peso.

Program Peso ;
VAR
nome, nmaior, nmenor, f : integer;
peso, pmaior, pmenor, pmedia : real;

Begin
for f := 1 to 10 do
begin
Writeln ('Escreva seu nome');
readln (nome);
Writeln ('Escreva seu peso');
readln (peso);
end;

pmenor := peso;
if (pmenor <= peso) then
writeln ('o menor peso é,');
writeln (pmenor);
Writeln ('o nome é');
writeln (nome);
if (pmaior >= peso) then
writeln ('o maior peso é');
writeln (pmaior);
writeln ('o nome é');
writeln (nome);

pmedia := (peso + peso) / 10;
writeln ('a media é,');
writeln (pmedia);
End.