Неправильно выводит. Работа с записями.

[ca4ik]

На скриншоте показано что программа выводит первую строку , которая подходит по условию и вторую else (т.к вторая не подходит). Нужно сделать так , если хоть одна из строк не подойдет по условию , то выводило else , а у меня и то и то выводит.
type admin=record
punkt_naznach,data:string;
vremya,chislo_kup,chislo_plac:integ er;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Конечный пункт назначения';
StringGrid1.Cells[1,0]:='Дата выезда';
StringGrid1.Cells[2,0]:='Время отправки';
StringGrid1.Cells[3,0]:='Число свободных купейных мест';
StringGrid1.Cells[4,0]:='Число свободных плацкартных мест';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount:=StrToInt(Edit 1.Text)+1;
end;

procedure TForm1.okClick(Sender: TObject);
var admin1:array[1..100] of admin;
k,i:integer;
begin
k:=0;
for i := 1 to StringGrid1.RowCount-1 do
begin
admin1[i].punkt_naznach:=StringGrid1.Cells[0,i];
admin1[i].data:=StringGrid1.Cells[1,i];
admin1[i].vremya:=StrToInt(StringGrid1.Cells[2,i]);
admin1[i].chislo_kup:=StrToInt(StringGrid1.C ells[3,i]);
admin1[i].chislo_plac:=StrToInt(StringGrid1. Cells[4,i]);
end;
begin
for I := 1 to StringGrid1.Rowcount-1 do
begin
k:=0;
if (admin1[i].vremya)<=22 then
if (admin1[i].chislo_kup) >= 3 then
if (admin1[i].data)='суббота' then
if (admin1[i].punkt_naznach)='Берлин' then
k:=k+1;
begin
if k>=2 then memo1.Lines.add(IntToStr(admin1[i].vremya))
else memo1.Lines.add('невозможно выполнить заказ в полном объеме');
end;
end;
end;
end;
end.