Duvida Duvida exercicios pascal

[PaggiaPG]

Eae parceiros, tenho uma duvido de um exercicio de Pascal em que tenho que resolve-lo utilizando o comando TYPE.

É o seguinte: Preciso fazer um programa que armazene a idade das pessoas e no final mostre separadamente quem é maior de 18 e quem é menor de 18. Lmebrando que tem que usar o TYPE.

Alguem pode me ajudar?

Desde já agradeço a todos.

[???]

Ta!

Mano Esse codigo ele calcula a idade :[/SIZE]
var
idade : integer;
begin
try
idade := 0;
strtodate(edit3.text);
idade := trunc((date - strtodate(edit3.text))/365.25);
edit4.text := inttostr(idade) + ' anos';
except
messagedlg('Ocorreu um erro!', MTERROR, [MBOK], 0);
edit3.setfocus;
abort;
end;
end

Mais agora se você quiser para que ele so aceite maior de 18 é so colocar :

[SIZE="6"]If edit4.Text < '18' then begin
Showmessage(Você é menor de idade, so aceitamos maiores de 18 anos);
end;

[ForeverIstalone]

Eae parceiros, tenho uma duvido de um exercicio de Pascal em que tenho que resolve-lo utilizando o comando TYPE.

É o seguinte: Preciso fazer um programa que armazene a idade das pessoas e no final mostre separadamente quem é maior de 18 e quem é menor de 18. Lmebrando que tem que usar o TYPE.

Alguem pode me ajudar?

Desde já agradeço a todos.

program Project;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes;

type
 TPessoas = record
  name :string;
  idade:integer;
 end;

var
 Pessoas:Array of TPessoas;
 Item, I:Integer;

Procedure AddPessoa(Nome:String;Idade:Integer);
begin
 Item:=Length(Pessoas);
 SetLength(Pessoas, Item+1);
 Pessoas[Item].name :=Nome;
 Pessoas[Item].idade:=Idade;
end;

procedure Armazenar;
var
  Nome:String;
  Idade:Integer;
begin
  while true do begin
     WriteLn('Digite o nome de uma pessoa: ');
     readln(Nome);
     if Nome = 'Exit' then Break;
     WriteLn('Digite a idade de ' + Nome);
     readln(Idade);
     if Nome = 'Exit' then Break;
     AddPessoa(Nome ,Idade);
  end;
end;

procedure Separar;
var
 StrListMax18:TStringList;
 StrListMin18:TStringList;
begin
 StrListMax18:=TStringList.Create;
 StrListMin18:=TStringList.Create;
 for I:=0 to Length(Pessoas)-1 do begin
   if Pessoas[i].idade > 18 then
    StrListMax18.Add(Pessoas[i].name);
   if Pessoas[i].idade < 18 then
    StrListMin18.Add(Pessoas[i].name);
 end;
 WriteLn('Pessoas que tem Mais de 18 anos.');
  For i:=0 to StrListMax18.Count-1 do
   WriteLn(StrListMax18[i]);
 WriteLn('Pessoas que tem Menos de 18 anos.');
  For i:=0 to StrListMax18.Count-1 do
   WriteLn(StrListMin18[i]);
end;

begin
  WriteLn('{Para parar de armazenar digite Exit}');
  Armazenar;
  WriteLn('Armazenamento Finalizado') ;
  WriteLn('________________Idade Separada________________');
  Separar;
  Readln;
end.