Программа для сохранения паролей и вывода их по имени!

[Vania19961712]

Здраствуйте, я решил попробовать написать программу для сохранения и вывода паролей ,которые я введу.Эти пароли должны сохранятся в файле znak на диске Д.Вот код программы:

program p7_8;
Type
znak=record;
login:string[100];{fi}
password:string[200];
name_pass:string[200];{znak_zod}
kod:byte;{den_rog}
end;
    Var
    res:znak;
    f:file of znak;
    n,i:byte;
    p_m:byte;
        Procedure create;
        Var x:char;
        begin
        write('Vi deistvitelno hotite ydalit stariy fail i sozdat noviy?y/n:');
        readln(x);
        if(x='n') then writeln('Sozdanie otmeneno!')
        else
        begin
        rewrite(f);
        n:=1;
        repeat
        writeln('Vvedite dannue o',n,'m cheloveke');
        writeln('login:');
        readln(res.login);
        writeln('password:');
        readln(res.password);
        writeln('Ot chego parol?');
        readln(res.name_pass);
        writeln('nomer:');
        readln(res.kod);
        write(f,res);
        write('Hotite prodolgit vvod dannih?y/n:');
        readln(x);
        inc(n);
        until x<>'y';
        close (f);readln;
        end;
        end;
            
                procedure shapka;
                begin
                writeln('_____________________________________________');
                writeln('| # |name|znak zodiaka|   data rogdeniya   |');
                writeln('_____________________________________________');
                end;
                    Procedure viev;
                    var
                    n:byte;
                    begin
                    read(f);
                    n:=1;
                    shapka;

                    while not(eof(f)) do
                    read(f,res);
                    writeln('|',n:3,res.login:15,'|    ',res.password:20,'   |   ',res.name_pass:20,'|   ',res.kod:5,'  |');
                    inc(n);
                    end;
                           Procedure spisok;
                           var n:byte;
                           name_pass1 : string[20];
                           begin
                           reset(f);

                           writeln('Vvedite nazvanie parolia,naprimer "Origin":');
                           readln(name_pass1);
                           n:=1;
                           Shapka;
                           read(f,res);
                           writeln('|',n:3,res.login:15,'|    ',res.password:20,'   |   ',res.name_pass:20,'|   ',res.kod:5,'  |');
                           inc(n);
                           while not(eof(f)) do
                           begin
                           read(f,res);
                           if(name_pass1[20]>res.name_pass) or(name_pass1=res.name_pass) and(name_pass1>res.name_pass[20]) then
                           begin
                           read(f,res);
                           if(name_pass1[20]>res.name_pass) or(name_pass1=res.name_pass) and(name_pass1>res.name_pass[20]) then
                           inc(n);
                           end;
                           end;
                           if n=1 then write('   net cheloveka');
                           writeln('_____________________________________________');
                           close(f);
                           readln;
                           end;
                           
        
        
             Begin
             assign(f,'D:\znak.txt');
             repeat
             writeln('    Menu:');
             writeln('1.Vvod parolei');
             writeln('2.Prosmotr faila');
             writeln('3.Poisk parolei');
             writeln('4.Dobavlenie parolei');
             writeln('5.Exit');
             writeln('   Viberite punkt menu');
             readln(p_m);
             case p_m of
             1:create;
             2:viev;
             3:spisok;
             4:add;
             5:writeln('Do vstrechi!');
             else write('Neverno.Povtorite popitku!');
             end;
             until p_m=5;
             readln;
             end.

Тут ток надо смотреть на процедуру список и креате. Эту прогу я переделал из своей же, программи которая должна делать тоже самое с знаками зодиака.


Вот я ввел 2 имени, 2 пароля и 2 кода ,но по запросу имени 2 пароля выводится сообщение что невозможно прочитать файл наоборот и выводится в таблице 1 пароль.Помогите мне пожалуйсто исправить вывод в этой программе.