Чтение из файла. Паскаль

[k281092]

Проконсультируйте меня пожалуйста! Мне нужно сделать так, чтоб в одну переменную считывался текст в котором 20 строк! При данной кодировке он запоминает только последнюю строку(((
assign(F,'C:\Users\текст2.txt');
reset (f);

while not eof (f) do
begin
while not eoln(f) do
begin
read(f,strok);
write(strok);
end;
end;
writeln;
writeln;
close(f);
write('введите слово --> ');
readln(slovo);
m:= length(slovo);
n:= length(strok);
begin
repeat
repeat
writeln('1 - сила');
writeln('2 - Бойер-Мур');
writeln('3 - Рабин-Карп');
writeln('0 - exit');
read(case_menu);
if ((case_menu<>'1') and (case_menu<>'2')and (case_menu<>'3')and (case_menu<>'0')) then writeln ('Ошибка!');
until ((case_menu='1') or (case_menu='2') or (case_menu='3') or (case_menu='0'));

case case_menu of
'1' : begin
Poz:=Find(strok,slovo);
writeln('слово начинается с - ', poz);
end;
'2' : begin
boyer_moore(strok,slovo,poz,kol);
writeln('слово начинается с - ',poz);
end;

'3' : begin
rabin_karp(strok,slovo,poz,kol);
writeln('слово начинается с - ', poz);
end;
'0' : halt;
end;
until false;
end;

[GetMax]

Мне нужно сделать так, чтоб в одну переменную считывался текст в котором 20 строк!

Если с этими строками потом придется работать, то нужно считывать их в массив из строк

Var
  Mas_Slov:array[1..20] of string;
  i:Byte;
Begin
  i:=0;
  assign(F,'C:\Users\текст2.txt');
  reset (f);
  while not eof (f) do
  begin
    Inc(i);
    Readln(f,Mas_Slov[i])
  End;
  Close(f)
End.

[k281092]

спасибо большое)

[k281092]

не помогло! в тексте 20 строк в каждой строке по 60 символов

[GetMax]

не помогло!

В чем это выражается? Вы считали в массив строки. И теперь с ними можно делать что угодно, обращаясь к любой по индексу. Объясните что хотите сделать, тогда можно будет подумать над задачей.

[k281092]

Программа должна осужествлять поиск в тексте! в котором 20 строк и 60 символов! Если использовать ваш метод то он тоже только последнюю строку запоминает(((

[Mad_Cat]

k281092 а про циклы вы что то читали?
Попробуйте добавить

while i>0 do begin
writeln(Mas_Slov);dec(i);end;