C++ текстовые файлы, Pascal-->C++ Опции

[NoM]

Вот задание
________________________________________________________________________________
________________________________________________________
С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 700 символов (длина строки текста не должна превышать 70 символов).
Имя файла должно иметь расширение DAT. Написать программу, которая:
- выводит текст на экран дисплея;
- по нажатию произвольной клавиши поочередно выделяет в тексте заданные слова (заданные слова вводить с клавиатуры).
________________________________________________________________________________
_________________________________________________________

Вот код паскаля помогите мне пожалуйста

uses crt;

const
  alpha = ['a'..'z', 'A'..'Z'];
var
  ft: text;
  s: string;

  a, b: array[1 .. 50] of string;

  line_count, n,  i,j,f:integer;
  ch:byte;

  p, len: byte;
  start: integer;
  ss, st: string;
  isgray: boolean;

procedure print_all;
var i: integer;
begin
  clrscr;
  for i := 1 to line_count do begin
	isgray := true; textcolor(lightgray);
	st := a[i];
	for len := 1 to length(a[i]) do
	  if st[len] = '~' then begin
		if isgray then begin
		  textcolor(lightred);
		  isgray := false;
		end
		else begin
		  textcolor(lightgray);
		  isgray := true;
		end
	  end
	  else write(st[len]);

	writeln;
  end;
  readln;
end;

begin
  Assign(ft,'text700.dat');
  reset(ft);

  clrscr;

  line_count := 0;
  while not eof(ft) do begin
	readln(ft,s); writeln(s);
	inc(line_count);
	a[line_count]:=s;
  end;

  close(Ft);

  write('n='); readln(n);
  writeln('new word - new line');
  for i:=1 to n do readln(b[i]);

  clrscr;
  for i:=1 to line_count do begin
	p := 0; st := a[i];

	for j := 1 to n do { !!! }
	  repeat
		start := p;
		p := start + pos(b[j], copy(st, start + 1, 255));
	  if
		(
		  (p <> start)
		  and
		  ((p = 1) or ( (p > 1) and not(st[p-1] in alpha)))
		  and
		  (
			(p + pred(length(b[j])) = length(st)) or
			((p + pred(length(b[j])) < length(st)) and
			not(st[p+length(b[j])] in alpha))
		  )
		) then

		begin
		  ss := a[i];

		  delete(st, p, length(b[j]));
		  insert('~'+b[j]+'~', st, p);

		  inc(p, length(b[j]));
		  a[i] := st;
		  print_all;

		  a[i] := ss;
		  st := ss;
		end;
	  until p = start;
	a[i] := st;

  end;
  readln;
end.

Сообщение отредактировано: volvo - 4.03.2010 21:07