Помогите пожалуйста.Нужно чтобы эта программа в приложении при первом вводе в неё данные сохранялись,чтобы не водить при каждом входе в эту программу даные.чтобы при входе даные были уже в программе(сохранялись в текстовике и брались от туда при запуске программы,здесь две обьедененые программы типизированная и текстовая.сделаны в АВС паскале.

Приложение:
uses crt,GraphABC;
const qwe:set of char=['0'..'9'];
type
igr=record
color,name:String;
cost:Integer;
age2,age1:Byte;
end;
var
f:file of igr;
f1:text;
a:array[1..100] of igr;
choice,age,i,n,n1,v,w,k,j:byte;
q:boolean;
cost:integer;
name:String;
{/////////////////////////типизированная прога/////////////////////////////////////}
procedure enter1; {-----------------------Заполнение-----------------}
begin
Clrscr;
Writeln('Введите количество записей');
Readln(n1);
Rewrite(f);
Clrscr;
for i := 1 to n1 do begin
Writeln('Введите название игрушки ', i);
repeat
Readln(a[i].name);
k := 0;
for j := 1 to length(a[i].name) do
if a[i].name[j] in qwe then begin
Writeln(a[i].name[j]);
k := k + 1;
Writeln('Название введено неверно! Попробуйте еще раз');
end;
until k = 0;

Writeln('Введите цену ', i);
Readln(a[i].cost);

Writeln('Введите цвет игрушки ', i);
repeat
Readln(a[i].color);
k := 0;
for j := i to length(a[i].color) do
if a[i].color[j] in qwe then begin
Writeln(a[i].color[j]);
k := k + 1;
Writeln('Цвет введён неверно! Попробуйте еще раз');
end;
until k = 0;

Writeln('Введите рекомендуемый минимальный возраст для игрушки ', i);
Readln(a[i].age1);

Writeln('Введите рекомендуемый максимальный возраст для игрушки ', i);
Readln(a[i].age2);

Clrscr;
end;
Close(f);
Clrscr;
end;

procedure req11; {----------------Поиск игрушки цене и возрасту----------------}
begin
Reset(f);
Writeln('Введите максимально допустимую цену игрушки');
Readln(cost);
Writeln('Введите возраст ребёнка');
Readln(age);
w := 0;
q := False;
for i := 1 to n1 do
if (cost <= a[i].cost) and (age >= a[i].age1) and (age <= a[i].age2) then
begin
q := True;
Writeln('Найденная игрушка: ', a[i].name);
w := w + 1;
end;
if q then Writeln('Найденно игрушек: ', w)
else Writeln('Игрушек не найденно');
Writeln;
Close(f);
Writeln('Для выхода в меню нажмите ENTER');
readln;

Clrscr;
end;

procedure req12; {----------------Поиск игрушки по названию и цене-------------------}
var
Cheapest: Integer;
begin
reset(f);
Writeln('Введите название игрушки');
repeat
k := 0;
readln(name);
for j := 1 to length(name) do
if name[j] in qwe then begin
Writeln(name[j]);
k := k + 1;
Writeln('Название введено неверно! Попробуйте еще раз');
end;
until k = 0;
Reset(f);
Cheapest := -1;
for i := 1 to n1 do
if (a[i].name = name) and ((a[i].cost < Cheapest) or
(Cheapest = -1)) then Cheapest := a[i].cost;
if Cheapest > -1 then Writeln('Самая дешёвая цена для игрушки с',
'заданным названием - ', Cheapest)
else Writeln('Игрушки с таким названием не найденно');
Close(f);
Writeln;
Writeln('Для выхода в меню нажмите ENTER');
Readln;
Clrscr;
end;

procedure req13; {------------------подсчет самого частого цвета-------------------}
type
ColorCount = record
color: String;
count: Byte;
end;
var
ccAr: array[1..10] of ColorCount;
ccArLen: Byte;
mostFreq: Byte;
begin
Reset(f);
for i := i to n1 do
for j := i to ccArLen do begin
if ccAr[j].color = a[i].color then begin
Inc(ccAr[j].count);
break;
end;
if j = ccArLen then begin
Inc(ccArLen);
ccAr[ccArLen].color := a[i].color;
ccAr[ccArLen].count := i;
end;
end;
mostFreq := i;
for i := i to ccArLen do
if ccAr[i].count < ccAr[mostFreq].count then mostFreq := i;
Writeln('Самый частый цвет игрушек:',a[i].color);
Close(f);
Writeln;
Writeln('Для выхода в меню нажмите ENTER');
Readln;
Clrscr;
end;

procedure zapv; {-----------------дозапись даных-----------------}
begin
Reset(f);
for i := 1 to n do begin
end;
n1 := n1 + 1;
Writeln('Введите название игрушки');
Readln(a[n1].name);

Writeln('Введите цену');
Readln(a[n1].cost);

Writeln('Введите цвет');
Readln(a[n1].color);

Writeln('Введите рекомендуемый минимальный возраст для игрушки ', i);
Readln(a[n1].age1);

Writeln('Введите рекомендуемый максимальный возраст для игрушки ', i);
Readln(a[n1].age2);

Close(f);
Clrscr;
end;

procedure procv; {-----------------База даных----------------------}
begin
Reset(f);
Writeln('*Базы данных*');
Writeln('Все записи:');
for i := 1 to n1 do
Writeln('Название игрушки: ', a[i].name, '; Цена: ', a[i].cost,
'; Цвет: ', a[i].color, '; Возраст: от ', a[i].age1, ' до ',
a[i].age2);
Close(f);
Writeln('Всего записей :',n1);
writeln;
Writeln('Для выхода нажмите ENTER');

readln;
Clrscr;
end;

procedure doz2; {----------------------Сортировка по алфавиту--------------}
var
sBuf: String;
iBuf: Integer;
bBuf: Byte;
begin
Writeln('Сортировка по алфавиту ');
Writeln;
for i := 1 to n1-1 do
for j := i + 1 to n1 do
if a[i].name > a[j].name then begin
sBuf:= a[i].name;
a[i].name:=a[j].name;
a[j].name:=sBuf;
iBuf:= a[i].cost;
a[i].cost:=a[j].cost;
a[j].cost:=iBuf;
sBuf:=a[i].color;
a[i].color:= a[j].color;
a[j].color:= sBuf;
bBuf:= a[i].age1;
a[i].age1:= a[j].age1;
a[j].age1:= bBuf;
bBuf:= a[i].age2;
a[i].age2:= a[j].age2;
a[j].age2:= bBuf;

end;
for i := 1 to n1 do Writeln(a[i].name);
writeln;
Writeln('Для выхода нажмите ENTER');
readln;
Clrscr;
end;

procedure zad1;
begin
Assign(f, 'tipiz.txt');
repeat
Writeln('*******************Выберите дальнейшее действие*******************');
Writeln('1: Начать новую запись');
Writeln('2: Продолжить запись');
Writeln('3: Поиск игрушек по цене и возрасту');
Writeln('4: Поиск самой дешёвой игрушки по названию');
Writeln('5: Определение самого распространённого цвета игрушек');
Writeln('6: Просмотр всех данных в базе');
Writeln('7: Сортировка данных по алфавиту');
Writeln;
Writeln('0: Выход в главное меню');
Readln(choice);
Clrscr;
Case choice of
1: enter1;
2: zapv;
3: req11;
4: req12;
5: req13;
6: procv;
7: doz2;
0: break;
end;
until choice = 8;
end;


procedure enter; {////////////////////////текстовая программа///////////////////////////////}
begin
Clrscr;
Writeln('Введите количество записей');
Readln(n);
Rewrite(f1);
Clrscr;
for i := 1 to n do
begin
Writeln('Введите название игрушки ', i);
repeat
Readln(a[i].name);
k := 0;
for j := 1 to length(a[i].name) do
if a[i].name[j] in qwe then begin
Writeln(a[i].name[j]);
k := k + 1;
Writeln('Название введено неверно! Попробуйте еще раз');
end;
until k = 0;
Write(f1, a[i].name);
Writeln('Введите цену ', i);
Readln(a[i].cost);
Write(f1, IntToStr(a[i].cost));
Writeln('Введите цвет игрушки ', i);
repeat
Readln(a[i].color);
k := 0;
for j := i to length(a[i].color) do
if a[i].color[j] in qwe then begin
Writeln(a[i].color[j]);
k := k + 1;
Writeln('Цвет введён неверно! Попробуйте еще раз');
end;
until k = 0;
Write(f1, a[i].color);
Writeln('Введите рекомендуемый минимальный возраст для игрушки ', i);
Readln(a[i].age1);
Write(f1, IntToStr(a[i].age1));
Writeln('Введите рекомендуемый максимальный возраст для игрушки ', i);
Readln(a[i].age2);
Write(f1, IntToStr(a[i].age2));
Clrscr;
end;
Close(f1);
Clrscr;
end;

procedure req21; {-------------------Поиск игрушки цене и возрасту-------------}
begin
Reset(f1);
Writeln('Введите максимально допустимую цену игрушки');
Readln(cost);
Writeln('Введите возраст ребёнка');
Readln(age);
w := 0;
q := False;
for i := 1 to n do
if (cost <= a[i].cost) and (age >= a[i].age1) and (age <= a[i].age2) then
begin
q := True;
Writeln('Найденная игрушка: ', a[i].name);
w := w + 1;
end;
if q then Writeln('Найденно игрушек: ', w)
else Writeln('Игрушек не найденно');
Writeln;
Close(f1);
Writeln('Для выхода в меню нажмите ENTER');
Readln;
Clrscr;
end;

procedure req22; {--------------------Поиск игрушки названию и цене----------------}
var
Cheapest: Integer;
begin
reset(f1);
Writeln('Введите название игрушки');
repeat
k := 0;
readln(name);
for j := 1 to length(name) do
if name[j] in qwe then begin
Writeln(name[j]);
k := k + 1;
Writeln('Название введено неверно! Попробуйте еще раз');
end;
until k = 0;
Reset(f1);
Cheapest := -1;
for i := 1 to n do
if (a[i].name = name) and ((a[i].cost < Cheapest) or
(Cheapest = -1)) then Cheapest := a[i].cost;
if Cheapest > -1 then Writeln('Самая дешёвая цена для игрушки с',
'заданным названием - ', Cheapest)
else Writeln('Игрушки с таким названием не найденно');
Close(f1);
Writeln;
Writeln('Для выхода в меню нажмите ENTER');
Readln;
Clrscr;
end;

procedure req23; {-------------Подсчет самого частого цвета----------------}
type
ColorCount = record
color: String;
count: Byte;
end;
var
ccAr: array[1..10] of ColorCount;
ccArLen: Byte;
mostFreq: Byte;
begin
Reset(f1);
for i := i to n do
for j := i to ccArLen do
begin
if ccAr[j].color = a[i].color then
begin
Inc(ccAr[j].count);
break;
end;
if j = ccArLen then
begin
Inc(ccArLen);
ccAr[ccArLen].color := a[i].color;
ccAr[ccArLen].count := i;
end;
end;
mostFreq := i;
for i := i to ccArLen do
if ccAr[i].count < ccAr[mostFreq].count then mostFreq := i;
Writeln('Самый частый цвет игрушек:', a[i].color);
Close(f1);
Writeln;
Writeln('Для выхода в меню нажмите ENTER');
Readln;
Clrscr;
end;

procedure zapb; {-------------------Дозапись базы даных-----------------}
begin
Append(f1);
n := n + 1;
Writeln('Введите название игрушки');
Readln(a[n].name);
Write(f1,a[n].name);
Writeln('Введите цену');
Readln(a[n].cost);
Write(f1,IntToStr(a[n].cost));
Writeln('Введите цвет');
Readln(a[n].color);
Write(f1,a[n].color);
Writeln('Введите рекомендуемый минимальный возраст для игрушки ', i);
Readln(a[n].age1);
Write(f1, IntToStr(a[n].age1));
Writeln('Введите рекомендуемый максимальный возраст для игрушки ', i);
Readln(a[n].age2);
Write(f1,IntToStr(a[n].age2));
Close(f1);
Clrscr;
end;

procedure procmb; {---------------База данных---------------}
begin
Reset(f1);
Writeln('************Базы данных************');
Writeln('Все записи:');
for i := 1 to n do
Writeln('Название игрушки: ', a[i].name, '; Цена: ', a[i].cost,
'; Цвет: ', a[i].color, '; Возраст: от ', a[i].age1, ' до ',
a[i].age2);
Close(f1);
Writeln('Всего записей :',i);
Writeln;
Writeln('Для выхода нажмите ENTER');
readln;
Clrscr;
end;

procedure doz3;{------------------Сортировка по алфавиту--------------}
var
sBuf: String;
iBuf: Integer;
bBuf: Byte;
begin
Writeln('Сортировка по алфавиту ');
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i].name > a[j].name then begin
sBuf := a[i].name;
a[i].name := a[j].name;
a[j].name := sBuf;
iBuf := a[i].cost;
a[i].cost := a[j].cost;
a[j].cost := iBuf;
sBuf := a[i].color;
a[i].color := a[j].color;
a[j].color := sBuf;
bBuf := a[i].age1;
a[i].age1 := a[j].age1;
a[j].age1 := bBuf;
bBuf := a[i].age2;
a[i].age2 := a[j].age2;
a[j].age2 := bBuf;
end;
for i := 1 to n do Writeln(a[i].name);
writeln;
Writeln('Для выхода нажмите ENTER');

readln;
Clrscr;
end;

procedure zad2;
begin
Assign(f1,'text.txt');
repeat
Writeln('********************Выберите дальнейшее действие*************');
Writeln('1: Начать новую запись');
Writeln('2: Продолжить запись');
Writeln('3: Поиск игрушек по цене и возрасту');
Writeln('4: Поиск самой дешёвой игрушки по названию');
Writeln('5: Определение самого распространённого цвета игрушек');
Writeln('6: Просмотр всех данных ');
Writeln('7: Сортировка данных по алфавиту');
Writeln;
Writeln('0: Выход в главное меню программы');
Readln(choice);
Clrscr;
case choice of
1: enter;
2: zapb;
3: req21;
4: req22;
5: req23;
6: procmb;
7: doz3;
0: break;
end;
until choice = 8;
end;

{справка}
procedure help;
begin
Writeln(' *****************Ознакомление с программой***************');
Writeln(' *****Текстовая пограмма и Типизированная программа*****');
Writeln(' Предназначена для создания базы данных игрушек');
Writeln(' в данной программе можно осуществлять запись в базу данных,');
Writeln(' также осуществлять выборки из базы по различным параметрам');
Writeln;
Writeln(' 1-вы начнёте создавать базу ');
Writeln(' 2-производится дозапись базы');
Writeln(' 3-производится поиск игрушки по цене и возрасту');
Writeln(' 4-производиться поиск самой дешевой игрушки по названию');
Writeln(' 5-осуществится просмотр самого распространённого цвета игрушек');
Writeln(' 6-осуществится просмотр всей базы данных');
Writeln(' 7-осуществится сортировка по алфавиту');
Writeln(' 0-осуществится выход в главное меню');
end;

{Главное меню }
procedure menu;
begin
Repeat
Writeln(' *****************Выберите дальнейшее действие*****************');
Writeln;
Writeln('1)Работа с типизированным файлом');
Writeln('2)Работа с текстовым файлом');
Writeln('3)$ Справка $');
Writeln;
Writeln('0)=>Выход из программы<=');
Readln(choice);
Clrscr;
case choice of
1: zad1;
2: zad2;
3: help;
0: halt(1);
end;
until choice > 0
end;

{Основная программа}
Begin
textsize(13);
TextAttr:=7 ;
TextBold;
CRTWindowSize(70,16);

Clrscr;
menu;
End.