Como utilizar vetor em Pascal.

[I.C20]

Olá, estou querendo aprender vetor em Pascal e o exercício é o seguinte:

1-Criar um programa em Pascal que leia e grave o nome e o peso de 4 pessoas.

Informar ao final o nome da mais gorda e seu peso, e o nome da mais magra e seu peso.

Se puderem colar o código irá ajudar muito!!!

[Matheus Maldi]

Program Pzim ;

var nome1,nome2,nome3,nome4,gorda,magra:char;

peso1,peso2,peso3,peso4,pesogorda,pesomagra:real;

Begin

writeln('Insira o nome da primeira pessoa: ');

readln(nome1);

writeln('Insira o peso da primeira pessoa: ');

readln(peso1);

writeln('Insira o nome da segunda pessoa: ');

readln(nome2);

writeln('Insira o peso da segunda pessoa: ');

readln(peso2);

writeln('Insira o nome da terceira pessoa: ');

readln(nome3);

writeln('Insira o peso da terceira pessoa: ');

readln(peso3);

writeln('Insira o nome da quarta pessoa: ');

readln(nome4);

writeln('Insira o peso da quarta pessoa: ');

readln(peso4);

if (peso1>peso2) and (peso1>peso3) and (peso1>peso4) then

begin

gorda:=nome1;

pesogorda:=peso1;

end

else if (peso2>peso3) and (peso2>peso4) then

begin

gorda:=nome2;

pesogorda:=peso2;

end

else if (peso3>peso4) then

begin

gorda:=nome3;

pesogorda:=peso3;

end

else

begin

gorda:=nome4;

pesogorda:=peso4;

end;

writeln('A pessoa mais gorda é ',gorda,' e pesa ', pesogorda);

End.

bom, não fiz a parte da mais magra, com o exemplo da gorda, você pode ver, o programa não funciona quando 2 pessoas tenham o peso mais alto e iguais