файлы

[kuy]

Здравствуйте, помогите пожалуста с задачей:
Дан файл input, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Найти названия книг данного автора, изданных начиная с 1960 г.
Я пока-что остановился на том что никак не могу вывести содержание файла на экран.

Содержание файла Imput:

Pshimanovsky; Four tanker and a dog; 1970;
Ryazanov; Vultures; 2002;
Popkov; in Nature; 1955;
Popkov; Modernity; 1961;
Suvorov; Aquarium; 1993;
Popkov; Spring; 1970;

[TinMan]

Как я понял, входной файл у тебя текстовый. Каждая книга - одна строка. Автор, название и год разделены символом ";". Считывай этот файл в цикле построчно до конца, EoF(f), подсчитывая количество строк. Потом находи в каждой строке разделитель и бей строку на три строки - можно запись сделать. А потом поиск по массиву записей. Вот и все.

[kuy]

Обработал файл, вывел на екран..:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type m = record
           avtor: string[40];
           kniga: string[40];
           god: integer;
         end;
var massiv:array[1..100] of m;
    massiv2:array[1..100] of m;
    i,n,code: integer;
    s,avtor2: string;
    f:text;
begin
assign (f,'input.txt' );
reset(f); {открываем для чтения}
i:=0;
while not eof(f) do begin
inc(i);
readln(f,s);{читаем содержимое в строку}
massiv[i].avtor:=copy(s,1,pos(';',s)-1 );
 delete(s,1,pos(';',s)+1 );
massiv[i].kniga:=copy(s,1,pos(';',s)-1 );
 delete(s,1,pos(';',s)+1 );
val(copy(s,1,pos(';',s)-1 ),massiv[i].god,code );
end;
writeln('File contents:');
n:=i;
for i:=1 to n do writeln('  ',massiv[i].avtor,', ',massiv[i].kniga,', ',massiv[i].god);
write('Input author surname: '); readln(avtor2);

Теперь не могу сделать так чтобы когда вводиш автора, то выводились на екран все его книги с 1960 года, а если таких нету, то: 'No books of this author since 1960'. Подскажите что-то..

[NetSpace]

Находишь дату - '1960' и переводишь её из строкового типа в число.
функция StrToInt.
например, Ваше сравнение.

for i:=1 to N do
begin
    if(1960<=StrToInt(massiv[i].god))then writeln('  ',massiv[i].avtor,', ',massiv[i].kniga,', ',massiv[i].god);//если есть такая книга - выводим на экран
    //а вот второе условие, что мол книг таких нема, напишете сами...
end;

не забудьте подключить модуль SysUtils.pas

[kuy]

NetSpace, дата уже в числовом типе
Я уже решил проблему, внедрил переменную типа булин, вроди работает:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type m = record
           avtor: string[40];
           kniga: string[40];
           god: integer;
         end;
var massiv:array[1..100] of m;
    i,n,code: integer;
    s,avtor2: string;
    f:text;
    e: boolean;
begin
assign (f,'input.txt' );
reset(f); {открываем для чтения}
i:=0;
while not eof(f) do begin
inc(i);
readln(f,s);{читаем содержимое в строку}
massiv[i].avtor:=copy(s,1,pos(';',s)-1 );
 delete(s,1,pos(';',s)+1 );
massiv[i].kniga:=copy(s,1,pos(';',s)-1 );
 delete(s,1,pos(';',s)+1 );
val(copy(s,1,pos(';',s)-1 ),massiv[i].god,code );
end;
writeln('File contents:');
n:=i;
for i:=1 to n do writeln('  ',massiv[i].avtor,', ',massiv[i].kniga,', ',massiv[i].god);
write('Input author surname: '); readln(avtor2);
e:=false;
for i:=1 to N do
begin
 if(massiv[i].avtor=avtor2) and (1960<=massiv[i].god)then
  begin
   writeln('  ',massiv[i].kniga,'(',massiv[i].god,')');
   e:=true;
  end;
end;
if e=false then writeln('No books of this author since 1960');
readln;
end.