Переводчик на Паскале

[gred]

спасиб
только она из цикла не выходит
исправь что не так

program translator;
uses crt;
var i,m, flag:integer; // flag, for, menu
    ch: char;
    wrd: string;  // translate word
    f1,f2: text;   //file assign
    en_word, lv_word: string;  // word db

procedure start;
begin
clrscr;
gotoxy(35,6);textcolor(10);write('Word Translator');
gotoxy(28,8);textcolor(9);write('Languages: English into Latvian');
gotoxy(28,10);textcolor(9);write('Author:');
gotoxy(28,20);textcolor(5);write('To start programm press enter..');
readln;
end;
procedure about;
begin
clrscr;
gotoxy(30,1);textcolor(10);write('About programm & Author');
textcolor(5);
gotoxy(1,2);write('Programm: Word Translator');
gotoxy(1,4);write('Author: ');
gotoxy(1,6);write('Languages: English into Latvian');
gotoxy(1,7);write('Contacts: E-mail -');
gotoxy(1,10);write('Description: Word translator, can translate words english into latvian, programm writen in Pascal, most popular programming language :)');
gotoxy(28,20);textcolor(9);write('Back to menu press enter..');
readln;
end;
procedure help;
begin
clrscr;
gotoxy(30,1);textcolor(10);write('Word translator HELP: F1');
gotoxy(35,5);textcolor(5);write('HELP..');
gotoxy(28,20);textcolor(9);write('Back to menu press enter..');
readln;
end;
procedure translate;
begin
repeat
clrscr;
gotoxy(35,1);textcolor(10);write('Word Translator');
gotoxy(30,3);textcolor(5);write('To translate insert a word');
reset(f1);
reset(f2);
gotoxy(20,7);write('Insert Word: ');textcolor(4);readln(wrd);
flag :=0;
while not EOF(f1) do begin
readln(f1,en_word);
readln(f2,lv_word);

if en_word=wrd then  begin
                   gotoxy(40,7);textcolor(9);write('-',lv_word);
                   flag:=1;
                   end;
if lv_word=wrd then  begin
                    gotoxy(40,7);textcolor(9);write('-',en_word);
                    flag:=1;
                    end;


end;
if flag=0 then begin
 gotoxy(30,18);write('Not in database');
     end;
close(f1);
close(f2);

gotoxy(28,21);textcolor(9);write('Back to menu press enter..');
ch:=readkey;
until ch=#27;
readln;
end;
procedure word_db;
begin
clrscr;
gotoxy(35,1);textcolor(10);write('Word Database');
gotoxy(35,5);textcolor(5);write('List of words');
reset(f1);
reset(f2);
i:= 0;
while not EOF(f1) do begin
inc(i);
readln(f1,en_word);
readln(f2,lv_word);
gotoxy(10,6+i);writeln(en_word,'-',lv_word);
end;
close(f1);
close(f2);
gotoxy(28,20);textcolor(9);write('Back to menu press enter..');
readln;
end;
procedure new_word;
begin
clrscr;
gotoxy(35,1);textcolor(10);write('New word Add');
gotoxy(25,5);textcolor(5);write('Here you can add a word into translator');
gotoxy(28,20);textcolor(9);write('Back to menu press enter..');
AppEnd(f1);
Append(f2);
gotoxy(10,7);textcolor(5);write('Insert English word: ');readln(en_word);
gotoxy(10,8);textcolor(5);write('Insert Latvian word: ');readln(lv_word);
writeln(f1,en_word);
writeln(f2,lv_word);
gotoxy(25,18);write('Succesfully added to database!');
close(f1);
close(f2);
readln;
end;
procedure prog_end;
begin
clrscr;
gotoxy(28,5);textcolor(5);write('Thank you for choosing our programm');
readln;
halt;
end;
procedure menu;
begin
Assign(f1,'en.txt');
Assign(f2,'lv.txt');
repeat
clrscr;
gotoxy(30,6);textcolor(10);write('Choose your variant');
textcolor(5);
gotoxy(28,8);write('1: Help');
gotoxy(28,9);write('2: About..');
gotoxy(28,10);write('3: Translator');
gotoxy(28,11);write('4: Add Word into Database');
gotoxy(28,12);write('5: Word Database ');
gotoxy(28,13);write('6: Exit');
gotoxy(28,17);write('Enter your variant: ');readln(m);
case m of
1: help;
2: about;
3: translate;
4: new_word;
5: word_db;
6: prog_end;

end;
until m=6;
end;
begin
clrscr;
start;
menu;
readln;
end.

вот цикл этот

while not EOF(f1) do begin
readln(f1,en_word);
readln(f2,lv_word);

if en_word=wrd then  begin
                   gotoxy(40,7);textcolor(9);write('-',lv_word);
                   flag:=1;
                   end;
if lv_word=wrd then  begin
                    gotoxy(40,7);textcolor(9);write('-',en_word);
                    flag:=1;
                    end;


end;

поправь что не так

[gred]

А да ешё что такое flag

[Artificial]

flag идет для проверки, если слово переволось, то флагу дается истина, если нет, то лож.
Соответственно, если ложь - пишет нету в базе слова.

[gred]

А сори не увидел в начале
за всё спасибо