Witam. Mam do napisania słownik. Ma działać na zasadzie, że podaje się słowo, a program wypisuje (z pliku .txt) całą linijkę w której znajduje się to słowo, to znaczy podane słowo i tłumaczenie. Oto mój program:
Chodzi mi o to żeby przerobić ten program tak aby wyświetlał całą linijkę, a nie tylko, że podane słowo znajduje się w pliku.
Uses Crt;
var
slowo,linia:string;
plik:text;
c:char;
znaleziono: boolean;
BEGIN
znaleziono := false;
writeln('Podaj slowo: ');
readln(slowo);
Assign(plik,'D:\FPC\slowo.txt');
Reset(plik);
while (not eof(plik)) do
BEGIN
readln(plik,linia);
if linia=slowo then
begin
znaleziono := true;
break;
end;
end;
if znaleziono then
begin
writeln(linia);
end;
if znaleziono = false then
writeln('Brak rekordu');
readln;
end.
Chodzi mi o to żeby przerobić ten program tak aby wyświetlał całą linijkę, a nie tylko, że podane słowo znajduje się w pliku.
