Computação TOP10

Crie um tipo registro com a seguinte estrutura:
Nome do funcionário, Data de admissão … dd –mm-aaaa, onde dd  contem um valor de {1,…,31} e mm de {1,..,12}, Salario base – nao pode ser menor que o salario minimo, Dias trabalhados nos ultimos 12 meses.

Crie um trecho de algoritmo que faça uma consulta a um funcionário já cadastrado:
O usuario deve fornecer o primeiro nome do funcionario, ou parte do nome, caso encontre, o programa deve mostrar seus dados.

Resposta:



Program funcionario;
// Autor: Cícero Amauri
const s = 545; 
type
    fun = record
                  nfun: string;
                  diaadm: integer;
                  mesadm: integer;
                  anoadm: integer;
                  sal: real;
                 diatrab: integer;
              end;
  var
    func: array [1..3] of fun;
    i: integer;
    digit: string; 
    resp: char;         
Begin
  for i := 1 to 3 do
  begin
           write ('digite o nome do funcionario: ');
           readln (func[i].nfun);
       repeat
              write ('digite o dia de admisão do funcionario: ');
              readln(func[i].diaadm);
       until ( func[i].diaadm >= 1) and ( func[i].diaadm <= 31);
       repeat
              write ('digite o mes de admisão do funcionario: ');
              readln(func[i].mesadm);
       until ( func[i].mesadm >= 1) and (func[i].mesadm <= 12);
       repeat
              write ('digite o ano de admisão do funcionario: ');
              readln(func[i].anoadm);
       until ( func[i].anoadm <= 2011 );
       write('digite o salario do funcionario: ');
       readln (func[i].sal);
       if (func[i].sal < s) then
         repeat
     writeln('salario invalido'); 
              write('digite o salario do funcionario: ');
              readln (func[i].sal);
         until ( func[i].sal > s );
          write('digite os dias trabalhados: ');
 readln(func[i].diatrab);
  end;
   repeat
 writeln ('digite o nome que deseja procurar: ');
 readln(digit);
 for i := 1 to 3 do
 begin
      if copy(func[i].nfun,1,length(digit))= (digit)then
  begin
               writeln ('o nome do funcionario é: ',func[i].nfun);
               writeln ('a data de admissão é: ', func[i].diaadm, '/', func[i].mesadm, '/', func[i].anoadm);
               writeln ('o salario é: ',func[i].sal:2:2);
               writeln ('os dias trabalhados são: ',func[i].diatrab);
      end;
 end;
  writeln('deseja fazer outra pesquisa s ou n: ');
  readln (resp); 
  until (resp = 'n');
End.