Помощь, база данных - Pascal

Формулировка задачи:

program eleven;
uses crt;
type biblioteka = record
name:string[8];
datav:integer;
datas:integer;
fio:string[8];
kartochka:1..2;
end;
var a:array[1..2] of biblioteka;
k,i:integer;
iskname:string;
procedure odin;
begin
clrscr;
writeln('ЙНННННННННННЛННННННННЛНННННННННЛННННННННННЛННННННННН»');
writeln('О kartochka є  name  є   fio   є   datav  є  datas  О');
writeln('О           є        є         є          є         О');
writeln('О           є        є         є          є         О');
writeln('ИНННННННННННИННННННННИНННННННННИННННННННННИНННННННННј');
end;
procedure dva;
begin
for i:=1 to 2 do
k:=3;
gotoxy(5,k);readln(a[i].kartochka);
gotoxy(15,k);readln(a[i].name);
gotoxy(25,k);readln(a[i].fio);
gotoxy(35,k);readln(a[i].datav);
gotoxy(45,k);readln(a[i].datas);
end;
procedure tri;
begin
writeln ('nomer kartochki');
for i:=1 to 2 do
begin
readln (a[i].kartochka);
if (a[i].kartochka = i) then
writeln (a[i].name);end;
begin
for i:=1 to 2 do
writeln;
writeln ('vvedite name');
readln (iskname);
if iskname = a[i].name then
writeln (a[i].datav);
end;
end;
begin
odin;
dva;
tri;
end.

2ое условие работает первое не хочет и в таблицу вписывается только одно значение( кто может помочь?

Решение задачи: «Помощь, база данных»

Листинг программы

program eleven;
uses crt;
type biblioteka = record
name:string[8];
datav:integer;
datas:integer;
fio:string[8];
kartochka:1..2;
end;
var a:array[1..2] of biblioteka;
k,i:integer;
iskname:string;
procedure odin;
begin
clrscr;
writeln('ЙНННННННННННЛННННННННЛНННННННННЛННННННННННЛННННННННН»');
writeln('О kartochka є  name  є   fio   є   datav  є  datas  О');
writeln('О           є        є         є          є         О');
writeln('О           є        є         є          є         О');
writeln('ИНННННННННННИННННННННИНННННННННИННННННННННИНННННННННј');
end;
procedure dva;
begin
for i:=1 to 2 do
  begin
   k:=3+i-1;
   gotoxy(5,k);readln(a[i].kartochka);
   gotoxy(15,k);readln(a[i].name);
   gotoxy(25,k);readln(a[i].fio);
   gotoxy(35,k);readln(a[i].datav);
   gotoxy(45,k);readln(a[i].datas);
  end;
writeln;
end;
procedure tri;
begin
writeln ('nomer kartochki');
readln(k);
for i:=1 to 2 do
if (a[i].kartochka = k) then
writeln (a[i].name);
end;
procedure Chetyre;
begin
writeln;
writeln ('vvedite name');
readln (iskname);
for i:=1 to 2 do
if iskname = a[i].name then
writeln (a[i].datav);
end;
begin
clrscr;
odin;
dva;
tri;
Chetyre;
readln;
end.

Объяснение кода листинга программы

Программа написана на языке Pascal.
В программе используется тип данных библиотека, который представляет собой запись (record) с полями: name (строка до 8 символов), datav (целое число), datas (целое число), fio (строка до 8 символов), kartochka (целое число от 1 до 2).
Объявлены следующие переменные:
- a: массив из 2 элементов типа biblioteka;
- k, i: целочисленные переменные для выполнения операций сравнения и цикла;
- iskname: строковая переменная для ввода имени, которое нужно найти.
В процедуре odin выводится шапка таблицы с данными.
В процедуре dva происходит чтение данных из базы данных и их вывод на экран.
В процедуре tri пользователю предлагается ввести номер карты, а затем выводятся имена из базы данных, соответствующие введенному номеру.
В процедуре Chetyre пользователю предлагается ввести имя, которое нужно найти, а затем выводится соответствующее значение datav.
В блоке begin программы происходит инициализация экрана, вызов всех необходимых процедур и ожидание ввода пользователя для завершения работы программы.