Дано имя файла и целые положительные числа N и K. Создать текстовый файл с указанным именем и записать в него N строк,каждая из которых состоит из K символов *(звездочка)
Данные:
Имя файла: ski.text
N=10
K=15;

во первых ты не правильно скопировал порядок действий

во вторых переменные приминаются не в том порядке, сначала N а потом K

//PascalABC.Net 3.1 сборка 1200uses PT4;var s: string; i, j, K, N: integer; f: Text;begin Task('Text1'); Readln(s); Readln(N); Readln(K); Assign(f, s); Rewrite(f); for i := 1 to N do begin for j := 1 to K do Write(f, '*'); Writeln(f); end; Close(f)end.

мое оптимизированное решение

uses PT4;var f: text; s: string; n, k, i: integer;begin Task('Text1'); readln(s); readln(n, k); assign(f, s); rewrite(f); s := ''; for i := 1 to k do s := s + '*'; for i := 1 to n do writeln(f, s); close(f);end.

var    f: text;    s: string;    n, k, i, j: integer;begin    readln(s);    readln(n, k);        assign(f, s);    rewrite(f);        s := '';    for i := 1 to k do        s := s + '*';        for i := 1 to n do        writeln(f, s);    close(f);end.