«Работа в графическом режиме» и «Текстовые файлы»

VAR
f,f1:TEXT;
S:STRING;
Lat_Num:BYTE;
i:INTEGER;
BEGIN
Assign(f,'D:\d');
ReSet(f);
Assign(f1,'D:\d1');
ReWrite(f1);
REPEAT
ReadLn(f, S);
Lat_Num:=0;
FOR i:=1 TO Length(S) DO
IF ((ORD(S[i])>64) AND (ORD(S[i])<91)) OR
((ORD(S[i])>96) AND (ORD(S[i])<123)) THEN INC(Lat_Num);
IF Lat_Num>0 THEN
WriteLn(f1,S+' ',Lat_Num);
UNTIL EoF(f);
Close(f);
Close(f1);
END.

USES CRT, Graph;
VAR
Ch:CHAR;
X:WORD;
 
PROCEDURE Triangle1(X1:WORD);
VAR
X2,X3,Y1,Y2,Y3:WORD;
BEGIN
X2:=X1-40;
Y1:=240+ROUND(20/SQRT(3));
Y2:=Y1;
X3:=X1-20;
Y3:=Y1-ROUND(20*SQRT(3));
LINE(X1,Y1,X2,Y2);
LINE(X1,Y1,X3,Y3);
LINE(X3,Y3,X2,Y2);
END;
 
PROCEDURE Triangle2(X1:WORD);
VAR
X2,X3,Y1,Y2,Y3:WORD;
BEGIN
X2:=X1-40;
Y1:=240-ROUND(20/SQRT(3));
Y2:=Y1;
X3:=X1-20;
Y3:=Y1+ROUND(20*SQRT(3));
LINE(X1,Y1,X2,Y2);
LINE(X1,Y1,X3,Y3);
LINE(X3,Y3,X2,Y2);
END;
 
BEGIN
InitGraph( , , );
{ GraphDriver, GraphMode и PathToDriver }
ClearDevice;
SetTextStyle(DefaultFont, HorizDir, 0);
SetTextJustify(CenterText, BottomText);
OutTextXY(320,480,'Press any key to stop the action');
SetLineStyle(SolidLn, 0, ThickWidth);
SetColor(Blue);
X:=40;
REPEAT
REPEAT
SetColor(Blue);
Triangle1(X);
Delay(10);
SetColor(Black);
Triangle1(X);
INC(X);
IF KeyPressed THEN
BEGIN
Ch:=ReadKey;
HALT;
END;
UNTIL X>640;
DEC(X);
REPEAT
SetColor(Blue);
Triangle2(X);
Delay(10);
SetColor(Black);
Triangle2(X);
DEC(X);
IF KeyPressed THEN
BEGIN
Ch:=ReadKey;
HALT;
END;
UNTIL X<40;
INC(X);
Until KeyPressed;
Ch:=ReadKey;
END.