2 задачи по Lazarus

[Рядовой]

Привет всем. Помоги те плиз, завал с 2 программами по лазарусу.
Одну задачу я сделал ,но не до конца и там ошибку найти не могу, а вторую вообще без понятия как делать.

1 задача(которую не могу доделать, сортировка вроде идет не по дате рождения; в архиве во вкладке) по теме "Программирование алгоритмов с использованием записей на языке lazarus" :

Дан список студентов, содержащий следующие поля: фамилия, имя; номер телефона; день рождения (массив из трех чисел). Написать программу, выполняющую следующие действия:
-сортировка записей по датам дней рождения;
-вывод на экран информации о студенте, номер телефона которого введен с клавиатуры; если такого нет, вывести на экран соответст-вующее сообщение.



unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

type
zap=record
fi:string[20];
nom,data:integer;
end;
var MZap:array[1..5] of zap;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
with StringGrid1 do
begin
Cells[0,0]:='Фамилия, Имя';
Cells[1,0]:='Номер телефона';
Cells[2,0]:='Год рождения';

for i:=1 to 4 do Cells[2,i]:=IntToStr(i);
Cells[0,1]:='Иванов В.'; Cells[1,1]:='21987'; Cells[2,1]:='1987';
Cells[0,2]:='Петров С.'; Cells[1,2]:='23411'; Cells[2,2]:='1989';
Cells[0,3]:='Сидоров Н.'; Cells[1,3]:='21233'; Cells[2,3]:='1988';
Cells[0,4]:='Семенов А.'; Cells[1,4]:='54334'; Cells[2,4]:='1992';
for i:=1 to 4 do
with MZap[i] do
begin
fi:=Cells[0,i];
nom:=StrToInt(Cells[1,i]);
data:=StrToInt(Cells[2,i])
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
buffer: zap;
begin
for i:=1 to 3 do
for j:=i+1 to 4 do
begin
buffer:=Mzap[i];
MZap[i]:=MZap[j];
MZap[j]:=buffer;
end;
for i:=1 to 3 do
with StringGrid1,MZap[i] do
begin
Cells[0,i]:=fi;
Cells[1,i]:=IntToStr(nom);
Cells[2,i]:=IntToStr(data);

end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

end.


2 задача(по теме "Программирование алгоритмов с использованием строк на языке Lazarus")

Из введенной строки создайте 3 строки, состоящие из: прописных букв английского алфавита, строчных английских букв и других символов данной строки.


Спасибо за ранее.