[PASCAL] Cadastro de pessoa.

Program Pzim ;
type
    cliente_reg = record
        nome:string;
    end;
    aluno_reg = record
        nome:string;
        serie:string;
    end;
    professor_reg = record
        nome:string;
        materia:string;
    end;
    paciente_reg = record
        nome:string;
        doenca:string;
    end;
    medico_reg = record
        nome:string;
    end;
    curso_reg = record
        nome:string;
        periodo:string;
    end;
var
    cliente:cliente_reg;
    aluno:aluno_reg;
    professor:professor_reg;
    paciente:paciente_reg;
    medico:medico_reg;
    curso:curso_reg;
    i:integer;
procedure criartela;
    begin
        writeln('__________________________________________________________________________');
        writeln('                                                                          ');
        writeln(' Cliente:                                                                 ');
        writeln('                                                                          ');
        writeln(' Aluno:                                   Série:                          ');
        writeln(' Professor:                               Matéria:                        ');
        writeln('                                                                          ');
        writeln(' Paciente:                                Doenca:                         ');
        writeln(' Nome do Médico:                                                          ');
        writeln('                                                                          ');
        writeln(' Curso:                                   Periodo:                        ');
        writeln('__________________________________________________________________________');
     end;

begin
    textbackground(black);
    textcolor(white);
    criartela;
    gotoxy(11,3);readln(cliente.nome);
    gotoxy(9,5);readln(aluno.nome);
    gotoxy(50,5);readln(aluno.serie);
    gotoxy(13,6);readln(professor.nome);
    gotoxy(52,6);readln(professor.materia);
    gotoxy(12,8);readln(paciente.nome);
    gotoxy(51,8);readln(paciente.doenca);
    gotoxy(18,9);readln(medico.nome);
    gotoxy(9,11);readln(curso.nome);
    gotoxy(52,11);readln(curso.periodo);
    clrscr;
    while(i <> 10) do
    begin
        i := i+1;
        writeln('Imprimindo dados: ',i,' porcento...');
        delay(300);
        if(i = 10) then
        begin
            writeln('__________________________________________________________________________');
            writeln('                                                                          ');
            writeln(' Cliente: ',cliente.nome,'                                                               ');
            writeln('                                                                          ');
            writeln(' Aluno: ',aluno.nome,'                                  Série: ',aluno.serie,'                       ');
            writeln(' Professor: ',professor.nome,'                              Matéria: ',professor.materia,'                     ');
            writeln('                                                                          ');
            writeln(' Paciente: ',paciente.nome,'                               Doenca: ',paciente.doenca,'                     ');
            writeln(' Nome do Médico: ',medico.nome,'                                                         ');
            writeln('                                                                          ');
            writeln(' Curso: ',curso.nome,'                                  Periodo: ',curso.periodo,'                       ');
            writeln('__________________________________________________________________________');
            writeln('Dados imprimidos, pressione qualquer tecla para sair do programa.');
        end
    end;
end.