Pomysł na wprowadzanie danych

Witam, robię baze danych i mam problem z wprowadzaniem liczb.
np.:

procedura wprowadz;
begin
ClrScr;
writeln('Imie : ');
writeln('Nazwisko : ');
writeln('Wiek : ');
GotoXY(1,10);
readln(r[t1].imie);
GotoXY(2,10);
readln(r[t1].nazwisko);
GotoXY(3,10);
readln(r[t1].wiek);
end;

// to tylko przykład, tablice nazywają się tak samo, ale pozycji jest o wiele więcej (56). a t1 to indeks tablicy. imie, nazwisko to rekord (type cos=record imie,nazwisko:string end;).
Wszystko działa ale chciałbym zrobić tak:
wprowadzam imie Łókasz,
potem nazwisko Kowalski,
widzę że zrobiłęm błąd w imieniu, ale wprowadziłem juz nazwisko i chciałbym aby po naciśnięciu strzałki w górę kursor przeszkoczył w pole imie i wprowadzone dane zapisały się jako r[t1].imie.
Sterowanie kursorami:

Repeat
c1:=ReadKey;
c2:=' ';
if c1=chr(0) then c2:=ReadKey;
if c2='H' then WriteLn('Kursor w górę');
if c2='P' then WriteLn('Kursor w dół');
Until c1=chr(27);

Wie ktoś jak rozwiązać ten problem?

mozesz miec zmienna ktora bedzie okreslala na ktorej pozycji aktualnie sie znajdujesz - ktory wiersz. nacisniecie stralki na dol zwiekszy go o 1, strzalki do gory zmniejszy o 1, wpisanie czegos w danym polu i nacisniecie enter tez zwiekszy go o 1. Wtedy tylko podczas edycji, mozesz do takiej struktury wpisywac dane: readln(r[t1].p[numer]); gdzie numer to wlasnie numer wiersza.